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FOREWORD 



Using the programs ADTAPE and ADCON, data sampled at rates up to 1000 
points/second on up to 16 analog channels can be stored by individual 
channels, ADTAPE is used first to collect tie data and store it as 
sampled in four block units on tape. ADCON then takes all the stored 
data and places it on tape by individual channel. The two programs 
function separately and may be used independently. 

ADTAPE is described in section 1 through 3 of this manual and ADCON ii 
described in sections 4 and 5. 
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ADTAPE 



1.0 USING ADTAPE 

1 . 1 Introduction 

ADTAPE permits up to sixteen AD12 A/D channels to be sampled consecu- 
tively. One or two channels can be displayed on the scope at any time 
during sampling simply by typing the niiraber(s) of the channel (s) on the 

(R) 

Teletype . Sampling rates up to 1 KC (1000 points/second) and a 
maximum time per point of up to A0 seconds/point are acceptable. The 
signal to begin or end sampling can be by means of a Sense Switch, ex- 
ternal level, or clock channel. It is also possible to begin sampling 
after a predetermined delay from the sync signal and to terminate the 
sampling after a requested number of points have been collected (up to 
a maximum of 10,000), A save or non-save mode provides the option of 
storing the data on LINCtape. 

ADTAPE functions in two parts; the first part, initialization, dis- 
plays a series of scope messages requesting user input of the re- 
quired parameters for the given experiment. The main section of 
the program, part 2, controls the actual experiment until its con- 
clusion. 

1.2 Hardware Requirements 

PDP-12A with KW12A clock and 4K of core memory 

1.3 Initial Starting Procedure 

1. Mount a LAP6-DIAL"^ tape containing ADTAPE on tape 
unit 0. (Unit 0 is indicated by setting the tape 
channel indicator to 8 on TU55 transports) • 

2. Mount another tape on unit 1. ADTAPE uses tape 1 

to store data and will replace any previous informa- 
tion on the tape with incoming data if that space 
is needed. (This tape need not be mounted until 
parameter initialization is completed.) 

3. Set the switches of both tape units to REMOTE and 
set unit 0 to WRITE ENABLE. 



'Teletype is a registered trademark of Teletype Corporation. 
LAP6-DIAL is hereafter referred to as DIAL. 
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4. Set the mode switch to LINC mode and press I/O 

PRESET. 

5. Set the Left Switches to 0701 and the Right 
Switches to 7300 by pushing down the back portion 
of the switches indicated by and pushing down 
the front portion of those indicated by ^ in the 
following diagram. 

Left Switches Right Switches 

6. Press the DO console switch. 

7. When the tape has stopped moving, press the START 

20 key. 

8. Press the LINE FEED key, type LO ADTAPE,^ 
and press the RETURN key. 

1.4 Responding to ADTAPE 

When responding to display messages that expect a numerical reply, 
the number of digits acceptable is indicated by the number of dashes 
on the display. As each digit is typed in, it replaces the leftmost 
dash. Any remaining blanks are ignored; supplying no digits assumes 
a value of 0. 

Each display includes a vertical cursor located to the left of the 
dash that will be replaced next. The cursor moves to the next dash 
as each is filled in on a line. 

Each response line in a display is terminated by pressing the RETURN 
key. The cursor is moved to the beginning of the next line in the 
display. If the cursor is currently located at the last line of the 
display, press LINE FEED to advance to the next message. If a change 
is required in the value typed in for the current display, pressing 
RETURN when the cursor is located at the last dash in the display 
will move the cursor to the first dash of the current message. Press 
RETURN until the cursor is located at the correct line, then type in 
the corrected value. Press RETURN until the cursor is at the last 
line then press LINE FEED to proceed to the next display. Note that 
skipping lines that already contain values by pressing RETURN saves 
those values. 

At any time while typing in values. Sense Switch 0 may be depressed 
to return to the first message and to erase all values typed in up to 
that point. New values can be typed in by the above procedures. 
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2.0 INITIALIZATION 



The first part of ADTAPE is a series of displays requiring answers by 
the user. This sequence of messages aid acceptable responses follows. 
Refer to section 2,13 for a chart illustrating the sequence of mes-- 
sages. Any errors detected in a user^s response cause the message to 
be redisplayed when LINE FEED is pressed. All the parameters reques- 
ted in the message must then be retyped. 

2.1 Message 1 

PROGRAM 
A-DTAPE 

TYPE C TO CONTINUE _ 

This message requires only that C and then LINE FEED be typed to ad- 
vance to the next message, 

2 . 2 Message 2 

STANDARD EXPERIMENT? 
IF NO, TYPE N 
IF YES, TYPE Y 
REPLY 

Any previously defined^ stored set of parameters may be used for this 
experiment if their location on tape is known. If a new set of para- 
meters is to be used for this experiment, type N followed by LINE 

FEED. Continue at message 6 which is displayed next. If a stored 
set of parameters is to be used, type Y followed by LINE FEED. Con- 
tinue at message 3. 

2. 3 Message 3 

PARAMETER LOCATION 

TBLK NO ' 

UNIT _ 

The location on LINCtape of the previously stored parameters to be 
used in this experiment are defined in this message. Type the octal 

tape block location (TBLK), 0-777, and press RETURN. Then type the 
number of the tape unit holding the tape. Only unit 0 or 1 may be 
specified. Terminate the response by pressing LINE FEED. 
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2.4 Message 4 



NEW START TBLK? 
IF NO, TYPE N 
IF YES, TYPE Y 
REPLY 

When a previously stored parameter set is being used, it may be desir- 
able to store the incoming data at a new tape block so that the pre- 
viously stored data is not overwritten. Type Y, press LINE FEED and 
continue at message 5 if a new storage location is to be used. Type 
N, press LINE FEED and continue at message 12 if the stored data is 
to be overwritten. 

2. 5 Message 5 

TBLK NO. ^ 

If a new starting tape block was requested in message 4, the desired 
starting block must be specified. Type the octal block number (J0-776) 
and press LINE FEED. Continue at message 10. 

2. 6 Message 6 

STARTING CHANNEL * 

NUMBER OF CHANNELS 

The first channel and the number of consecutive channels starting with 
the specified first channel to be sampled are requested by this mes- 
sage. The starting channel must be in the range 0 to 37g and the 

total number of channels to be sampled can only be 1, 2, 4, 8 or 16^-. 

Ij0 

If some other number of channels is typed, the next largest acceptable 

value is assumed. A request for 12 channels, for example, will cause 
sixteen channels to be sampled. Be sure that the number of channels 
to be sampled does not exceed the last available channel, i.e., START- 
ING CHANNEL+NO. OF CHANNELS < 4 JZI g . 

2.7 Message 7 

STARTING TBLK ' 

RATE 

U OR M OR S? _ 
DELAY X RATE 
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The tape block at which data storage is to start is requested in the 
first line of the display. Acceptable values are 0-776 



8* 



The second 



line asks for the time lapse between samples and must be a multiple 
of 100 microseconds. Remember, that a maximum rate of 1000 points/ 
second and maximum time of 40 seconds/point can be sampled"^. The 
units of the rate are designated by the response to line 3 where typ- 
ing U indicates microseconds , M, milliseconds and S, seconds. 

Because of the manner in which the clock operates, if a rate is en- 
tered in milliseconds that is greater than 4j2f95 and the unit's right- 
most digit is not 0, the tens digit is increased by 1 and the unit's 
digit is set to 0. 

For example: 



rate requested calculated rate 



4j2f96 M 
9999 M 



4,100 M 
10,000 M 



% error 

.097 
• 010 



A delay after the SYNC pulse may be specified in line 4 of message 7. 
Decimal values between 0 and 999 that are a multiple of the rate are 
acceptable. 

^* ^ Message 8 



SYNC ON: 

1. SENSE SWITCH N 

2. EXTERNAL LEVEL N 

3. CLOCK CHANNEL N 

'CODlT"^ — " 

N • 



CODE is requesting a choice of sync device, specified as 1, 2, or 3 
in the display. N refers to the choice of one of the following para- 
meters for the specified device. 



Device code 

1 
2 

3 



Parameters 

0- S 

1- 3 



Type the code number, press RETURN , type the parameter and press LINE 
FEED. 



ADTAPE will try to perform the specified operation, but may produce un- 
acceptable results when more than 1000 pts ./sec. are requested. If AD- 
TAPE detects that the samo 1 

the Teletype and the experiment is terminated. 
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2.9 Message 9 



1. 

2. 
3. 
4. 



END SAMPLING ON: 
SENSE SWITCH N 

EXTERNAL LEVEL N 
CLOCK CHANNEL N 
TOTAL PTS PER CH N 



CODE * 



N 



The signal to terminate the sampling is defined in the same manner as 
the sync pulse in message 8. Type the device code number (1 to 4), 
press RETURN, lype the parameter for that device and press LINE FEED. 
The parameters used in message 8 apply here also; the range for choice 
4 is 0-9999. Note that the response to messages 8 and 9 can not be 
identical; the same device may be used, but a unique parameter is re- 
quired. 

2.10 Message 10 



The parameters specified by messages 4 through 9 can be saved for 
future use by typing Y. If N is typed, all parameters must be respeci- 
fied for the next experiment. 

2. 11 Message 11 



The tape block in which the parameters are to be stored is supplied by 
this message specified as the tape block, which must be an octal nximber 
from 0 to 777, and its unit number, 0 or 1. \ 

2. 12 Message 12 



Mount the data tape on unit 1 and then type C to start the experiment. 



SAVE PARAMETERS? 
IF NO, TYPE N 
IF YES, TYPE Y 
REPLY ' 



TBLK LOCATION? 

TBLK NO * 

UNIT 



MOUNT DATA TAPE 

ON UNIT 1 
TYPE C TO CONTINUE 
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2. 13 MESSAGE SEQUENCE 



PROGRiy^ 
A-DTAPE 

TYPE C TO CONTINUE 



STANDARD EXPERIMENT? 
IF NO, TYPE N 
IF YES, TYPE Y 

REPLY _ 

-"Ho 



STARTING CHANNEL _ 
NUMBER OF CHANNELS 



STARTING TBLK 

RATE 

U OR M OR S? 
DELAY X RATE 



SYNC ON: 

1. SENSE SWITCH N 

2. EXTERNAL LEVEL N 

3. CLOCK CHANNEL N 

CODE _ 
N 



END SAMPLING ON: 

1. SENSE SWITCT! N 

2. EXTERNAL LEVEL N 

3. CLOCK CHANNEL N 

4. TOTAL PTS PER CH 

CODE _ 
N 



Yes 



±1- 



SAVE PAR/iMETERS? 
IF NO, TYPT^ N 
•IF Ys<S, TYPE Y 
REPLY 



Ye', 




TBLK I '"^CATION? 


TBLK r,o 




UNIT 






C , 


MOUNT DATA 


TAPE 


ON UNIT ] 




TYPE C TO CONTINUE 



4 



PARAMETER LOCATION 

TBLK NO 

UNIT 



4 



NEW START TBLK 
IF NO, TYPE N 
IF YES, TYPE Y 
REPLY 



No 



\ 


Yes 


TBLK N 


0 
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3,0 DATA COMMANDS 



Once the experiment has been started, ADTAPE is in visual mode. The 
data being received on the active channels can be displayed on the 
scope at this time. Incoming data can also be stored by requesting 
store mode. Any of the following actions are implemented by typing 
the appropriate character. If the end of tape is reached before samp- 
ling is finished, the Teletype bell rings and TAPE is printed to alert 
the user to this condition. 

Note that when data is being written onto tape , no check is made be- 
cause the sampling rate is too fast for a write and check operation. 

3.1 Channel Display 

Any of the channels requested in message 6 can be displayed when the 
program is in visual mode. The active channels are called relative to 
the starting channel, as follows: 



to display channel 



n (starting channel) 

n+1 

n-i-2 



1 
2 
3 



n4-8 
n+9 
n+10 



9 
A 
B 



n+14 
n+15 



F 
G 



Thus, if message 6 was answered as 



STARTING CHANNEL 3 
NUMBER OF CHANNELS 7 



Then 



to display channel 



type 



3 
4 
5 
6 
7 
8 
9 
10 



1 
2 
3 
4 
5 
6 
7 
8 
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Remember that eight channels will be sampled if 5, 6, or 7 channels 
are requested. 

The data's spectrum is tr-aced across the scope by a single dot. If 
two channels are requested, two dots are displayed on the scope; they 
are always seen at the same X axis location. The most recently reques- 
ted A/D channel is displayed on scope channel 1; the second most re- 
cently requested A/D channel is displayed on scope channel 2. The 
channel indicator knob must be set to the desired scope channel. The 
indicator knob may also be set to display both scope channels; that 
is the recommended setting. Before choosing a channel, a moving dot 
is displayed on the scope ^ but does not represent incoming data. The 
dot only represents the current value of the display buffers and is of 
no interest to the user. 

3. 2 Store Mode - S 

The program starts in visual mode. S must be typed to collect and 
store data. Data is then displayed and collected in IK buffers in 
core. When a buffer is filled, it is written out on tape and another 
IK buffer continues to collect the data. 

3.3 Visual (non-store) Mode - V 

If the initial visual mode has been exited at any time during the ex- 
periment, it can be reentered by typing V. This mode allows the data 
from up to two A/D channels to be displayed on the scope. No data 
will be stored in core or on tape in visual mode. Storing will be re- 
sumed after store mode is entered. (Refer to section 3.2.) 

3. 4 Pause Mode - P 

Typing P temporarily stops sampling and/or writing onto tape. 

3.5 Continue - C 

After entering pause mode, only typing C will continue the experiment. 

3 . 6 Rerun - R 

The experiment can be restarted using the last set of parameters sup- 
plied. All data previously collected with these parameters is lost. 
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3 . 7 Return - X 

Typing X causes the program to return to DIAL."^ 
3*8 End of Experiment 

When the terminating signal defined in message 9 is received, the re- 
maining locations of the buffer currently accepting data are filled 

with 4000 and the buffer is then written onto tape. The header block 
is modified to accommodate the new data (refer to Appendix A) . When 
all tape writing is completed, the bell on the Teletype rings and END 
is printed. Return to DIAL (X) or rerun (R) the experiment. 

If the end of the assigned LINCtape is reached before the terminating 
signal has been received, TAPE is printed on the Teletype and the data 
collected up to that point is saved. END is then printed; return to 
DIAL (X) or rerun the experiment (R) . 



The DIAL tape containing the ADTAPE program must be on unit 0 and unit 
0 m.ust be set to WRITE ENABLE and REMOTE before the RETURN command can 
be used. 
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ADCON 



4.0 USING ADCON 

4.1 Introduction 

The ADCON program takes the segmented data collected by ADTAPE and 
stores it in contiguous blocks on a formatted LINCtape by channel num- 
ber. ADCON can be used for any or all of the sampled A/D channels. 

Like ADTAPE, ADCON functions in two parts; the first part is a series 

of scope messages requesting user information required for part two. 
The second part transfers the segmented data and stores it in contigu- 
ous blocks on the formatted LINCtape. 

In this discussion, only those parts of ADCON that differ from ADTAPE 
are detailed. If not specified, an operation is performed in the same 
manner as in ADTAPE. 

4.2 HARDWARE REQUIREMENTS 
PDP-12A with 4K of core 

4.3 INITIAL STARTING PROCEDURE 

The starting procedure is the same as that for ADTAPE except step 8 
where ADCON is substituted for ADTAPE; the command is -*-L0 ADCON, U . 

Responses to ADCON are made in the same manner as for ADTAPE. 
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5.0 INITIALIZATION 



5. 1 Message 1 



ADCON 

DATA FROM THE DATA TAPE IS TRANSFERRED 
TO A NEW TAPE IN CONTIGUOUS BLOCKS 
TYPE C TO CONTINUE * 



This message requires only that C and then LINE FEED be typed to ad- 
vance to the next message. 



5 . 2 Message 2 



LOCATION OF DATA 
TO BE TRANSFERRED? 

STARTING TBLK » 

UNIT 



The location on the data tape where the standard parameters used in 
the experiment reside is restated here (see message 2 of ADTAPE. ) 
When LINE FEED is pressed, a delay of a few seconds occurs until mes- 
sage 3 appears. 



5- 3 Message 3 



TRANSFER LOCATION? 

STARTING TBLK * 

UNIT 



The starting location on a formatted LINCtape for output where the con- 
verted data in contiguous blocks is to be transferred is requested in 
message 3. 

Both messages 2 and 3 require typing the 3 digit octal tape block loca- 
tion (TBLK), 0-777, pressing RETURN, typing the number of the tape 
unit 0-7, and terminating the response by pressing LINE FEED. 



Note that the tape containing the segmented data (e.g., from ADTAPE) 
can be used to collect the contiguous data by ADCON. This method, 
however, has the following restrictions: 



1. Much more time must be allotted &r travelling up 
and down the tape to gather and store the data. 

2. The starting tape block in message 3 must be less 
than the starting tape block in message 2 or it 
must be greater than the last block which contains 
the segmented data. If either of these conditions 
is not met, message 3 is redisplayed, waiting for 
acceptable values. 
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3. If insufficient space is provided on tape so 
that the contiguous data for a channel will 
overwrite segmented data, the message OVERRUN 
DATA is printed and the bell rings on the 
Teletype and ADCON message 1 is displayed. 
Contiguous data is put on tape up to the 
block where the segmented data starts, but 
the segmented data will not be overwritten. 



^* ^ Message 4 



CREATE FILES FOR 

CHANNEL NUMBER * 

TYPE A FOR ALL CHANNELS SAMPLED 
TYPE C WHEN FINISHED SELECTIONS 

Of the A/D channels sampled, the data for any or all of them can be 
converted into contiguous blocks of data. Type in the specific channel 
numbers to be converted (octal only) one at a time, followed by a LINE 
FEED each tine. If all the sampled channels are desired, it is not 
necessary to type in each channel number; type the letter A followed 
by LINE FEED. As each channel number is typed, it appears in the 
spaces at the end of the channel number display. When LINE FEED is 
pressed after the value, that number moves from the space at the end 
of that line to the space between lines 1 and 2 of the display. A 
list of the channel numbers typed is collected in this space; each 
value entered moves from the end of line 2 to the list when LINE FEED 
is pressed. When A is typed, it appears in line 2; when LINE FEED is 
pressed after it, all the channel numbers sampled appear in the space 
between lines 1 and 2 on the display. 

Non-octal numbers or more than sixteen entries are ignored. 

No check is made on duplicate channel number entries. Thus, if a 
legal channel number is entered more than once, a file for that chan- 
nel is made as many times as it is requested. 

The letter C followed by pressing LINE FEED must be typed to proceed 
to the next message. 

5. 5 Message 5 



CAUTION 1 
IF UNIT 0 IS USED TO COLLECT 
CONTIGUOUS DATA, REMOVE DIAL TAPE 
TYPE T TO BEGIN TRANSFER* 
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If the PDP-*12 system used has only two tape transports and unit 0 is 
being used to accept the data, it is advisable to remove the DIAL tape 
from unit 0, as DIAL could be destroyed, and replace it with an output 
LINCtape to be used to accept the contiguous data. However, if other 
tape transports are available, they can accommodate the storage tape* 
the DIAL tape need not be removed, and message 5 is not displayed. 
The program will automatically proceed to the heading below in that 
case. 

Typing T followed by LINE FEED initiates part 2 of the program which 
performs the transfer of data. 

The Teletype prints out a heading for the data list as: 

CHAN STBLK NB 

As each specified channel is converted, the Teletype prints the samp- 
led channel number (CHAN) followed by the block number on the format- 
ted LINCtape where the coxtiguous data begins (STBLK) and the number 
of blocks used by the data (NB) . 

When all requested channels have been converted and the list on the 
Teletype is completed, a final message appears on the scope. 

5. 6 Message 6 

REQUESTED DATA 

HAS BEEN TRANSFERRED 

TYPE R FOR ANOTHER JOB 

TYPE H TO HLT 

REPLY 

Typing R followed by LINE FEED causes the program to return to the 
message 1. Another experiment with segmented data can now be conver- 
ted. If no other transfers are needed at this time, typing H followed 
by LINE FEED causes the processor to HALT. 

Note that Sense Switch 0 can not be set to one once message 6 of ADCON 

is displayed. 

If the last block of tape is used up before the transfer is completed, 
the message E.O.TAPE is printed and the bell rings on the Teletype 
and message 1 is redisplayed. (None of the ADTAPE command actions 
can be used with ADCON. ) 
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5,7 MESSAGE SEQUENCE 







ADCON 


DATA 


FROM THE 


DATA TAPE IS TRANSFERRED 


TO A 


NEW TAPE 


IN CONTIGUOUS BLOCKS 




TYPE C 


TO CONTINUE _ 



^ ^ ^ 

LOCATION OF DATA 
TO BE TRANSFERRED? 

STARTING TBLK 

UNIT 



TRANSFER 


LOCATION? 




STARTING 


TBLK 




UNIT 











CREATE FILES FOR 

CHANNEL NUMBER 

TYPE A FOR ALL CHANNELS SAMPLED 
TYPE C WHEN FINISHED SELECTIONS 



y 

CAUTION 1 

IF UNIT 0 IS USED TO COLLECT 
CONTIGUOUS DATA, REMOVE DIAL TAPE 

TYPE T TO BEGIN TRANSFER 



EXIT TO PART 2 



1 



REQUESTED DATA 

HAS BEEN TRANSFERRED 

TYPE R FOR ANOTHER JOB 
TYPE H TO HLT 

REPLY 
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APPENDIX A 
ADTAPE TAPE BDRMAT 



The tape block (TBLK) used to start storing data by ADTAPE is speci- 
fied in message 4 or 7. The first block is used to store the set of 
parameters used to control the experiment in the first locations of 
the block as follows : 



Location Contents 

1 Starting A/D channel 

2 Number of consecutive A/D channels to be 

sampled 

3 Starting tape block 

4 Value used to initialize the clock con- 
trol register 

5 Value used to initialize the clock buf- 
fer preset register 

6 Delay after sync 

7 Sync code 

8 Sync parameter 

9 Stop code 

10 Stop parameter 



Last tape block used to store the data 



The actual experimental data storage starts at block TBLK+1 and con- 
tinues in succeeding blocks until the experiment is terminated. 

The data is stored on tape in four block chunks (2000^ words). Each 
2000 word buffer is divided into a number of equal sections such that 
the number cf sections equals the number of channels being sampled. 

Remember that the number of channels sampled must be 1, 2, 4, 8, or 16. 
A buffer will therefore be sectioned in one of the five following con- 
figurations, depending on the number of channels sampled. 



1 CHANNEL 



2 CHANNELS 



2000, 



STARTING 
CHANNEL 



400, 



0000 



2000, 



FIRST 
CHANNEL 



SECOND 
CHANNEL 



4Wc 



0000 




0003 

i^004 
0005 



0006 

0007 

0010 0000 0000 

0011 0001 5)402 

0012 0002 1200 

0013 0003 0000 

0014 0004 0000 

0015 0005 0000 
0016 

0017 0010 0000 



0020 0011 0000 

0021 0012 0000 

0022 0013 0000 
i^023 

0024 0020 5421 

0025 0021 0200 

0026 0022 0000 

0027 0023 1600 
0030 0024 0660 
i^03l 002& 1226 
^032 0026 1221 
0033 0027 7464 
0034 



0035 


0040 


0000 


0036 






0037 


0041 


0060 


0040 


0042 


1/61 


0041 


0043 


0002 


0042 






0043 


0044 


5402 


0044 


0045 


1170 


0045 


0046 


1777 


0046 


0047 


7764 


0047 






00 50 


0050 


0001 


0051 


0051 


0001 


0052 


0052 


0001 


0053 


0053 


3100 


0054 


0054 


0020 


0055 


0055 


0005 


0056 


0056 


0001 


0057 


0057 


0001 


0060 


0060 


0001 


0061 


0061 


0000 


0062 


0062 


0000 


0063 


0063 


0002 


0064 


0064 


0047 


0065 


0065 


0400 


0066 


0066 


7774 


0067 


0067 


0003 


0070 


0070 


1243 


0071 


0071 


0000 


0072 


0072 


0303 


0073 


0073 


0000 


0074 


0074 


0000 


0075 


0075 


0000 



*20 

/ADTAPE .20 

/3/31/70 

/ 

/PAGE 0 
/ 

PHODE 

*0 

0 

JMP I 
P0P8IN 

8ETA3* 0 

8ETA4, 0 

BETAS, 0 

*10 

XR0, 0 
XRl, 0 
XR2, 0 
XR3» 0 

♦20 

JHP I ,+1 

XTART 
ENXM, 0 
OKSAMA , OKSAM 
ECA, ECHO 
DPY, DISPLY 
SAMXTA, TAPEX 
M314, •314 
«40 

0 

LMODE 
SET I 0 
LRTN 
POP 
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1030 


1130 




T A n D T M T T 


1043 


1031 


3 1 j PI 

<i« fC,; 




fl r A Q I ir T n D 

U V H D U r 1 U r 


1044 


1%'S'i. 


1140 




T A n p{ 1 ri T M 

sMu oUruin 


1045 


1033 


7041 




CIA 


104 6 


103 4 


3111 




OCA 8UFFUU 


1047 


1035 


54 45 




JMP I SMXT 


1050 


1036 


2110 


SAM5, 


ISE " BUFTOP 


10bl 


1037 


5445 




JMP I SMXT 


1052 






/ROUTINE TO BE USED IN S/ 


1053 






/ 




1054 


1040 


0000 


THING, 


0 


1055 


1041 


3524 




DCA 1 PUTPTR 


1056 


1042 


il25 




TAD DISCTR 


1057 


1043 


1103 




TAD OISl 


1060 


1044 


7640 




S2A CLA 




J. ^ 5 






JMP THING2 


1062 


1046 


1524 




TAD I PUTPTR 


1063 


1047 


3122 




OCA DISPI 


1064 


1050 


5257 




JMP THINGI 


1065 

m 


1051 


1125 


THING2, 


TAD DISCTR 



1066 


1052 


1104 




TAD 


DIS2 


1067 


1053 


7640 




S^A 


CLA 


1070 


1054 


5257 




JMP 


THINGl 


1071 


1055 


1524 




TAD 


I PUTPTR 


1072 


1056 


3123 




OCA 


0ISP2 


107^ 


imi 


2125 


THINGl 


1 ISi 


DISCTR 


1074 


1060 


1124 




TAD 


PUTPTR 


1075 


1061 


1107 




TAD 


DELTA 


1076 




3124 




OCA 


PUTPTR 


XMl 


1053 


5640 




JMP 


I THING 


1100 






/ 






1101 






/TIHE 


(LONGEST 49,5 USi 


110£^ 






/ 






1103 


1064 


0000 


QSETi 


0 




1104 


1065 


1312 




TAD 


C4X 


1105 


1066 


1106 




TAD 


QCTR 


1106 


1067 


1275 




TAD 


MLIM 


1107 


1070 


7500 




SMA 




1110 


1071 


5277 




JMP 


TYPAX 


nil 


1072 


1276 




TAD 


LIMX 


1112 


1073 


3106 




DCA 


QCTR 


1113 


1074 


5664 




JMP 


I QSET 


1114 


1075 


7763 


ML I M 1 


-15 




1115 


1076 


0015 


LIHX; 


15 




1116 


1077 


7200 


TYPAX» 


OLA 




1117 


1100 


1304 




TAD 


LT 


1120 


1101 


3010 




DCA 


XR0 


1121 


1102 


5703 




JMP 


I •*! 


1122 


1103 


1313 




TYPGO 


1123 


1104 


1104 


LTi 






1124 


1105 


0306 




306 




1125 


1106 


0301 




301 




1126 


1107 


0323 




323 




1127 


1110 


0324 




324 




1130 


1111 


0000 




0 




1131 






/ 






1132 


1112 


0004 


C4X, 


4 




1133 






/CHECKS STATUS OF TAPE' 


1134 






/ 






1135 


1113 


0000 


TIOLE, 


0 




1136 


1114 


7001 




lAC 




1137 


1115 


6141 




LINC 


1140 


1116 


0416 




416 




1141 


1117 


0011 




11 




1142 


1120 


0002 




2 




1143 


1121 


5713 




JMP 


I TIOLE 


1144 






/CHECK 


TOTAL 


PTS TO ST( 


1145 


1122 


7200 


TOTP, 


CLA 




1146 


1123 


1062 




TAD 


STOPNM+l 


1147 


1124 


7161 




CLL 


CML CIA 


1150 


1125 


1113 




TAD 


TQTPTS+1 


1151 


1126 


7530 




S^L 


SPA 


1152 


1127 


5337 




JMP 


TOTPl 


1153 


1130 


7440 




S^A 


1154 


1131 


5745 




JMP 


I ALDA 


1155 


IX'6'I 


1063 




TAD 


STOPNM+2 


1156 


1133 


7141 




CIA 


CLL 


1157 


1134 


1114 




TAD 


TOTPTS+2 


1160 


1135 


7630 




S2L 


CLA 


1161 


1136 


5745 




JMP 


I ALDA 


1162 


1137 


7200 


TOTPl, 


CLA 




1163 


1140 


1744 




TAD 


I STOPPP 


1164 


1141 


3343 




DCA 


• +2 



HOP 


1 X*f C 


13 / 4 0 




JMP I ,*X 


11 QO 


11 40 


00 00 




0 


'i. 16/ 


1144 


14 31 


C" T r> ri n r*\ 

b T OP rP 


vsr f\ F% 

t STOPP 




114t? 


1^65 


ALDA , 


ALDONE 


1171 






/ 




1172 


1146 


1357 


£NSEN# 


TAD ENl 


1 X / O 


11^/ 


^5013 




OCA XR3 


X 1 / H 


1150 






TAD I XR3 


i ■! T K 


llt?l 


6041 




TSF 


1176 


1 lb2 


5351 




JMP ,-1 


117 7 


11^3 


6 04 6 




TLS 


1 200 


115 4 


7 640 




SHA CLA 


1201 


1155 


5350 




JMP ,-5 


1202 


1156 


5551 




JMP 1 MONA 




1157 


X157 




« 




4 it i:L m 

X1O0 


0207 




207 


•* O /3I C 


1161 


0207 




207 


t n fTi 


1162 


0215 




215 


J. C\u / 


110 0 


0212 




212 


1 1 CA 
X C ±ia 


X A 0 


Of ■» ni C 




305 




116 5 






316 


J. £ 1 ii! 


11 0 0 


03 04 




304 


1 C 4. O 


X X 0 / 


ffl rx nj ns 




0 


1 c 1 4 


11/0 


6X41 


SAMX IT » 


LINC 


1215 








LMODE 


1 c x 0 


1 1 / X 


yy «i 2 




XSK I BETA3 


1 ?1 7 
X ii. X / 


1 1 7 P 


Ic.' !6! X 0 




NOP 




XX / 0 


T/^ •'5 A 




XSK I BETA4 


1 C 1 


X X *t 


laii^l 0 




NOP 




X X / P 


fil l9l 01 0 
1(^2 




POP 










PMOOE 




Ix / o 


5426 




JMP I SAMXTA 








/INTERRUPT HANDLER 


t 9 A 






«1200 




g p 7 
i «s / 


X fci & 


0 4*5 0 


POP8IN1 


OCA AC 


X O fc-' 


1 IC) 


/»<P 1 




RAR 


1231 


12 0 2 


V X u / 




OCA LI 


J, C O c 




1 1 K "? 

4, ry w 




TAD C100 


JL c v^' O 




6151 


61&1 






1 2 0 5 


5210 




JMP CLOCK 


1 'J k; 
J. c 0 


120 6 


7200 




CLA 


1 'j 

i ^ O D 


120 7 


52 4 3 




JMP TAPE 


-! 9 T 7 
-ICO / 


1 1 1 yj 


"5? 0 fT( n{ 

/ 200 


CLOCK, 


CLA 


a. 4 0 


1211 


6131 




6131 


19 41 
X £ J. 


1212 


"7 ^ ffl 0 




HLT 


1 ' J A ''J 


1 Cl «J 


A 1 T iLi 
0X35 




CLSA 


X t H 0 


1214 


K CM nt 

7500 




SMA 


X " 


1 iSX.^ 


K C* 0 ffl 




JMP DISAB 


X C *r 3 


1 0 i A 

i2JLO 


"f 0 r* 




CLA 


1 y 4 ft 
X t f 0 


X X / 


i:^ 4 d 0 




JMP I OKSAMA 


1 P 4 7 

X ^ *t ? 


X £: c 45 


y / 1 


0ISA8# 


OCA CCXSAV 


1 P K 




113 7 


TAPEXi 


TAD LI 


X c i 




7104 




CLL RAL 


X C J c 


1 c 


1 1 3 6 




TAD AC 


1 0 s 

X £- ^ W 


X <^ c ^ 


0)6' 01 


GOCAT, 


ION 


•t t^' ^1 


12 25 


5400 




JMP I 0 

0 


1 ? ^ B 
X c 




f/i 


OlSPLY* 


1256 


X £, C ^ 


61 4i 




LINC 


12&7 








LMODE 


1260 


1230 


2X22 




ADD OlSPl 


1261 


1231 


0341 




SCR 1 


1262 


1232 


0143 




OIS BETA3 


1263 


1233 


0011 




CLR 



/BYE BYE 



1264 


1234 


2123 




ADD DISP2 


12 65 


12 35 


0341 




SCR 1 




1266 


1236 


0144 




DIS BETA4 


1267 


1237 


0011 




CLR 




1270 


1240 


0002 




POP 




1^:71 








PMODE 




1272 


1241 


5626 




JMF I DISPLY 


12 73 


1242 


7777 


MIX, 


«1 




1274 






/TAPE 


INTERRUPT 


HANDLER 


1275 






/ 






1276 


1243 


1340 


TAPEi 


TAD 


C200X 


1277 


1244 


6151 




6151 




1300 












1301 


1245 


7200 




CLA 




1302 


1246 


1106 




TAD QCTR 




1303 


1247 


7450 




SNA 




1304 


1250 


5221 




JMP TAPEX 


1305 


1251 


1242 




TAD MIX 




1306 


1252 


3106 




DCA QCTR 


1307 


1253 


i4ii 




TAR T 


VP i 


1 310 


1254 


3337 




U 1/ A 


T r M D 

I c. n r 


1311 


1255 


1337 




T A n 

1 A U 


T r M P 


1312 


1256 


0341 




A M n 

A\ IN U 




1313 


1257 


1105 




T A n 

1 A U 




1314 


1260 


3270 




n p A 

UU A 


UP ? T r 


1315 


1261 


1337 




! A U 


T C M P 


1316 


12 62 


0342 




A IN U 


P 7 y 


1317 


1263 


1343 




T A n 


O *T iw >N 


1320 


1264 


3266 




nr A 

W V W 




1321 


1265 


6141 




U. Jl IN W 




1322 


1266 


0000 




(71 




1323 


1267 


0716 




71 A 




1324 


1270 


0000 


WRITE* 


Oi 

V 




1325 


1271 


0002 




Q 
C 




132 6 


127 2 


2105 




T <53l 
1 OC 


T PI K 


1327 


1273 


1105 




TAD 


TRI k 


1330 


1274 


1152 




T AH 


A Xvvv 


1331 


12 75 


7700 




9 M A ri A 

0 v\ M V L n 




1332 


1276 


5311 




vl M r 


T A pr 1 


1333 


1277 


1011 




T An 


XRl 


1334 


1300 


1102 




TAD 


STACKE 


1335 


1301 


7640 




SjfA CLA 




1336 


1302 


5305 




JMP 


TAPE3 


1337 


1303 


1100 




TAD 


STACKT 


1340 


1304 


3011 




OCA 


XRl 


1341 


1305 


1115 


TAPE3» 


TAD 


5AMFLG 


1342 


1306 


7650 




SNA CLA 




1343 


1307 


5221 




JMP 


APEX 


1344 


1310 


5541 




JMP I 


ill 


1345 


1311 


1322 


TAPEli 


TAD 


.ISTP 


1346 


1312 


3010 




DCA 


R0 


1347 


1313 


6041 


TYPGOi 


TSF 




1350 


1314 


5313 




JMP 


.-1 


1351 


1315 


1^10 




TAD I 




1352 


1316 


6046 




TLS 




1353 


1317 


7640 




S2A CLA 




1354 


1320 


5313 




JMP 


APEl+2 


1355 


1321 


5744 




JMP I A 


AKE 


1356 


1322 


132 2 


LISTP, 






1357 


1323 


0215 




215 




13 60 


1324 


0212 




212 




1361 


1325 


0324 




324 




1362 


1326 


0301 




301 





0 



i 

I 



1363 

1364 

1365 

1366 

1367 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1450 

1452 
1453 
1454 
1455 
1456 
1457 
1460 
1461 



1327 
1330 

1331 
1332 
1333 
1334 
1335 
1336 
1337 
1340 
1341 
1342 
1343 
1344 



1345 
1346 
1347 
1350 
1351 
1352 
1353 
1354 



14^0 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1430 



1431 
1432 
1433 
1434 
1435 
1436 
1437 
1440 



0320 

0305 
0215 
0212 
0212 
0207 
0207 
0000 
0000 
0200 
7000 
0007 
0640 
1532 



0011 
3354 

0004 
0011 
0001 
0004 
6000 
0200 



0000 

7200 

1206 

1056 

3205 

0000 

5606 

1412 

1423 

0752 

7001 

6141 

0000 

0011 

0002 

7650 

5600 

5622 

1744 

7001 

6141 

0000 

0011 

0002 

5217 



0000 
7200 
1237 
1060 
3236 
0000 
5637 
1444 



TEMP. 

C200X^ 

C7000, 

C7Xi 

C640X, 

ALFAKEi 

/ 

GOGOi 



C2X0, 

/ 

**1400 
/ 

SYNGO, 



JMPSYNi 

SSW, 
SSWSYN, 

SYNCl, 



320 
305 
215 
212 
212 
207 
207 



200 

7000 

7 

640 
AL14 

LMOOE 

CLR 

ADO C2X0 
EST 

CLR 

AXO 

EST 

JHP 0 

200 

PHOOE 



0 

CIA 

TAD 
TAD 
DCA 
0 

JMP I 

SSW 

EXL 

CCX 

lAC 

LINC 



JMPSYN 
SYNCON 

t*0 



CLAD, 
EXLi 

EXLSYN, 



/ 

/CHECK 
STOPP, 



11 
2 

SNA CLA 
JHP I SYNGO 
JMP I CLAD 
CLOCKG 
lAC 
LINC 
> 0 
11 
2 

JMP SYNCl 
FOR STOP SIGNAL 



/POP 



CLA 
TAD 
TAD 
DCA 

0 

JMPSTO* JMP I 
SSSW 



JMPSTO 
STOPON 

.♦0 



1462 




X "4 5 n 




be. AL 




1463 


1 ^1 4 2 


'], 4 62 




C r* P Y 
bu U A 




1464 


.1 4 o 


1 i, i 




T riTP 




146 b 


144 4 


7 M r;! -1 
/ iiJ iiJ J, 


C C Q LI 


TAP 

i AU 




1466 


14 45 


6141 








14 67 


14 4 6 


fA rP! c;s 


o o y Q T n 






1470 


144/ 


0011 




1 1 




14 71 


14 50 


(A fA fTl O 

w k5 p iC. 








14 72 






Q T HP 1 

o 1 Ur J. > 


Q M A f ! A 
O IN A W» L A 




1473 




pool 




IMP T 


«^ T nP p 

0 1 U' r 


147 4 


143 0 


K Q A R 
-? £. 0 y 




1 MP 


A ^ U w IM C 


14 75 


1*} P'f 


/ la 01 


bt AU > 


TAP 




1476 


1455 


ol*H 




I IMP 




1477 


1456 


M m ffl 




0 




1500 


1457 


0^11 




11 




1501 


14 6 0 


0< M m o 

0002 




2 




1502 


14 61 


52 51 




JMP 


STQPl 


1^03 


14 62 


10 71 


c? r» n V 
OUUA ? 


TAO CCXSAV 


1504 


146 3 


014 4 




AND 


OUMASK 


1!^05 


1464 


5251 




JMP 


STOPl 


1506 


14 65 


~f m 


A i n n fcr c 


CLA 




1507 


14 66 


61 32 




CLLR 




1510 


14 67 


1140 




TAD 


8UPLIM 


1511 


14 70 


11 11 




TAD 


bufful 


1512 


1471 


7650 




SNA CLA 




1513 


1472 


5324 




JMP 


AL3 


1514 


<i A "i 'I 

14/3 


1110 


ALl 1 


TAD 


BUFTOP 


1515 


14 /*t 


3124 




OCA 


PUTPTR 


1516 


1475 


1051 




TAD 


NCHAN 


1517 


14/0 


~f fA A A 

/041 




CIA 




15i^0 


14/7 


314 0 




DCA 


BUFLIM 


1521 




/ X 00 




STL PAR 




1522 


15 01 






JHS I 


TH INGA 


1523 


A j'T^ O 


c X 0 




ISH 


BUFL IM 


1 52 4 


150 3 


5 30 0 




JMP 


AL2 


lt?2t> 


ll3 04 


2111 




ISZ 


8UFFUL 


1526 


150 5 


7 410 




SKP 




1527 


15 06 


5311 




JMP 


.*3 


1530 


15 0 7 


1 .1 0 




IS2 


BUFTOP 


1531 


1510 


5 27 3 




JMP 


All 


1532 


1511 


6002 




IDF 




1533 


151<£ 


>1 U /I T 




JMS I 


qse:ta 


1534 


151 3 


/i K C ffl 




JMS I 


TIOLEA 


1535 


1514 






SNA 




1536 


1515 






JMP 


AL5 


1537 


1516 


3115 




OCA 


SAMFLG 


1540 


1517 


Xo 70 




TAD 


AL5A 


1541 


15tc0 


3 1 4 j. 




OCA 


RET 


1542 




R A T (71 
/ 0 




JMP I 


TAPEA 


15 43 


15 22 


00 01 


AL5? 


ION 




1544 


1 D <S O 


OllP 




OCA 


SAMFLG 


1545 


152 4 


1106 


AL3 ; 


TAD 


QCTR 


1546 




/ 0 <i k3 




SZA CLA 




154 / 


1526 


o 

->v5 24 




JMP 


AL3 


1550 


1 c: 1) *? 

1 5<:; / 


yi PI K 




JMS I 


TIOLEA 


15!?1 


1 K f;'s 


7 K (Ti 
/ 0 Pit) 


SNA CLA 




•1 C K O 

15D2 


1531 


u -v o T 

->3£ / 




JMP 


AL6 


■4 K c: '2 

1553 


153<!; 


/■;! ffl o 
6002 


A 1 A 


IGF 






JL P 0 0 


7 0! /Tl 

/ <i low 




CLA 




1555 


1534 


6141 




LINC 




1556 


1535 


0001 




1 




1557 


1536 


0002 




2 




1560 


1537 


1064 




TAD 


PLIST 



/CLSA 



1561 


1540 


-^010 




DCA 


XR0 


1562 


1541 


1 0 4 7 




TAD 


M14 


156 3 


154 2 


u 107 




DCA 


DELTA 


1^64 


1543 


1046 




TAD 


C1777 


1565 


1544 


3011 




OCA 


XRl 


1!?66 


154!? 


1410 


ALi0* 


TAD 1 


XR0 


1567 


1546 


3411 




DCA I 


XRl 


1570 


154 7 


2107 




|S2 


DELTA 


1571 


15&0 


5345 




JHP 


al:i0 


1572 


1551 


7040 




CMA 




1573 


1552 


1105 




TAD 


TBUK 


lt?74 


1553 


3411 




DCA I 


XRl 


1575 


1554 


7130 




STL RAR 


1576 


1555 


1052 




TAD STTBLK 


1577 


1556 


3362 




DCA AL15 


1600 


1557 


6141 




LINC 




1601 


1560 


0641 




641 




1602 


1561 


0716 




716 




1603 


1562 


0 00 0 


AL15i 


0 




1604 


15 6 3 


0002 




2 




1605 


1564 


1067 




TAD C3 


1606 


1565 


3145 




DCA 


MONSW 


1607 


1566 


5767 




JMP I 


.♦1 


1610 


1567 


1146 




ENSEN 




1611 


1570 


1522 


AL5A# 


AL5 




1612 


1571 


0104 


ADPTR, 


0104 




1613 


1572 


2401 




2401 




1614 


1573 


2005 




2005 




1615 


1574 


1111 




7777 




1616 


1575 


0000 




0 




1617 






^1600 






1620 


1600 


2131 


OKSAM, 


IS2 


CLKDL 


1621 


1601 


5426 




JMP I 


SAMXTA 


1622 


1602 


1315 




TAD 


JMPBY 


1623 


160 3 


3200 




DCA 


OKSAM 


16 24 


1604 


6141 




LINC 


1 62 5 


1605 


0000 


rSTSAMi 


0 




1626 


1606 


0002 




2 




1627 


1607 


7200 




CLA 




1630 


1610 


1110 




TAO 


BUFTOP 


1641 


1611 


3124 




DCA 


PUTPTR 


1632 


1612 


7001 




lAC 




1633 


1613 


3125 




OCA 


DISCTR 


1634 


1614 


0000 


SSTRING 




1635 






/ 






1636 












1637 


1715 


5204 


JHPBYi 


JMP rSTSAM-l 


1640 






/ 






1641 






/CALL DIAL "X" 


FROM TTY 


1642 






/ 




1643 


1716 


6002 


DIALi 


I or 




1644 


1717 


6141 




LINC 




1645 








LHODE 




1646 


1720 


7740 




JMP 


FIXUP 


1647 


1721 


0642 




LDP 


2 


1650 


1722 


00 6 3 




SET I 


BETA3 


1651 


1723 


2014 




2014 


1 A s y 


1 7 9 


^ Q 4 




SET I 


BETA4 


1653 


1725 


1733 




DITAB- 


1 


1654 


1726 


1024 




LDA I 


8ETA4 


16t55 


1727 


1063 




STA I 


BETA3 


1656 


1730 


0450 




A2E 


1657 


1731 


7726 




JMP 


.•3 



( 



1660 


1732 


0602 




IIF 2 


1661 


1733 


6015 




JMP 15 


1662 


17v34 


0643 


OITAB/ 


LDF 3 


1663 


1735 


0721 




RCG I 


1664 


1/36 


*T "7 rjt I'M 

7300 




"9 V '7 ft n 

7\300 


166t? 


•i 1 1 "7 

1/0 / 


r« /TS /» 




0 


1 000 




k^i^ 11 


F I XUP > 


clR 


«1 & ^ "7 

loo/ 


17 41 


wwwl 




AXO 


16 70 


1742 


00 04 




ESP 


1671 


17 43 


6000 




JMP 0 


1672 








PMODE 


1673 






/START 


CLOCK 


lo74 


^ T A A 

1/44 


1055 


1 f\ \j t> 

CUOCKGf 


TAD SYNDLY 




174? 


7041 




CIA 


16/6 


1746 


/440 




82 A 


1677 


1747 


5353 




JMP ,*4 


1700 


1750 


1315 




TAD JMP8Y 


1701 


1751 


3200 




DCA OKSAM, 


1702 


1752 


7410 




SKP - 


1703 


1753 


3131 




DCA CLKDL 


1704 


1754 


1053 




TAD CLOCKl 


1705 


1755 


6132 




CLUR 


1706 


1756 


7200 




CLA 


17 0/ 


1/5/ 


2 1 45 




IS2 MQNSW 


1710 


1760 


5551 




JMP I flONA 


1711 


1761 


6002 


LRTNi 


lOF 


I7l2 


«l "7 X. O 

1762 


6141 




LINC 


1713 








UMODE 


1714 


•1 *7 1 

1763 


5774 




STC cc 


1715 


•t '7 £ y| 

1764 


6040 




ADO 40 • 


1716 


176? 


1^20 




BSE 1 


1717 


1766 


6000 




6000 


1720 


1767 


5773 




STC QIT ^ 


1 /li 1 


1770 


3/74 




ADD 22 


1722 


1771 


0500 




108 


1723 


1772 


6001 




6001 


17<i 4 


1773 


0000 


QITf 


0 


172t> 


1774 


0000 




0 


1726 








SEGMNT 2 


1727 








*20 


1730 


0020 


1020 




LDA I 


1731 


0021 


0020 




20 


1732 


0022 


0004 




ESF 


1733 


0023 


1020 




LOA I 


1734 


0024 


0702 




QAJNIT-t, 


1735 


0025 


1040 




STA 


1736 


0026 


0011 




11 


1737 


0027 


1120 




ADA I 


1 A m 


0030 


2000 




2000 


1/41 


00ol 


4012 




STC 12 


1 /4<i 


0 03 2 


0641 




LOF 1 


■1 "7 yl "2 

1/^0 


0033 


1020 




LDA I 


1 "7 >! yl 


003 4 


0702 




QAlNITol 


1 / *tP 


m n "7 c: 

0035 


1120 




ADA I 


"4 T y1 A 

1/40 


\0\0OQ 


6206 




«AAA£NO 


1/4/ 


0037 


4013 




STC 13 


i K Ol 
1 / 


00 40 


1031 




LDA I It 


17d1 


0041 


1072 




STA I 12 


X / 7 c 




Kf CO 0 




XSK I la 


1753 


0043 


6040 




JMP ,-3 


1754 


0044 


6057 


START, 


JMP Ml 


1755 


0045 


6064 




JMP MA 


1756 


0046 


6071 




JMP M2 



1757 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2050 

2051 

2052 

2053 

2054 

2055 



0047 
00 50 
0051 
0052 



6105 
6121 
6135 

6151 JMPME, 
JMPM6, 



0053 6203 

0054 0002 



4055 5656 

4056 0200 LOCX, 



0057 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0110 

0111 

0112 

011 3 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0140 

0141 

0142 

0143 



0057 
0000 
0601 
6020 
6017 
0057 



0601 
6041 
6017 

0057 

0000 

6703 

0232 

0671 

6227 

0070 

0671 

0603 

6020 

6017 

6073 

0057 

0000 

6703 

0262 

0671 

6227 

0070 

0671 

0603 

6141 

6017 

6107 

0057 

0000 

6703 

0331 

0671 

6227 

0070 

0671 

0603 

6231 

6017 

6123 

0057 

0000 

6703 

0421 

0671 

6227 

0070 



Ml, 



MA, 



M2j 



M2Ai 



M3, 



M4| 
M4A, 



M5, 



M5A, 



JMP N3 
JMP H4 

JMP H5 
JHP ME 
JMP M6 
POP 
PMODE 

JMP I LOCX 

200 
LMQOE 
SET 17 
0 

Lir 1 

JMP HIA 
JMP 17 
SET 17 

0 

LIF 1 
JMP MAA 
JMP 17 
SET 17 

0 

JMP QAINIT 

MESS2 
ANSWER 
JMP CHKSNS 
SET I 10 
ANSWER 
LIF 3 
JMP M2B 
JMP 17 
JMP M2A 
SET 17 
0 

JMP QAINIT 
MESS3 
ANSWER 
JMP CHKSNS 
SET I 10 
ANSWER 
LIF 3 
JMP M38 
JMP 17 
JMP M3A 
SET 17 
0 

JMP QAINIT 
MESS4 
ANSWER 
JMP CHKSNS 
SET I 10 
ANSWER 
LIF 3 
JHP M4B 
JMP 17 
JMP M4A 
SET 17 
0 

JMP QAINIT 
MESS5 
ANSWER 
JMP CHKSNS 
SET I 10 



2056 


0144 


0671 




ANSWER 


2057 


0145 


0603 




IIF 3 


2060 


0146 


6320 




JMP M5B 




0147 


6017 




JMP 17 


2062 


0150 


6137 




JMP M5A 


C KJ U >wi 


0151 


0057 


ME > 


SET 17 


p cn A 4 


0152 


0000 




0 




0153 


6703 


MEA> 


JMP QAINIT 


20 66 


0154 


0566 




MESSE 


2067 


0155 


0671 




ANSWER 


2070 


0156 


6227 




JMP CHKSNS 


2071 


0157 


0070 




SET I 10 


2072 


0160 


0671 




ANSWER 


2073 


0161 


1330 




LDH I 10 


2074 


0162 


1420 




SHO I 


2075 


0163 


1600 




1600 




0164 


6017 




JMP 17 


2077 


0165 


1420 




SHD I 




0166 

Sf X W *J 


3100 




3100 




0167 


6171 




JMP MFA 


C. 4, 


017 0 


6153 




JMP MEA 


C J, O 


0171 


6703 


MP A 1 


JMP QAINIT 


C X IcJ *T 


0172 


0636 




MESSF 


fc. 4. W 


0173 


0671 




ANSWER 


C J. V 


0174 


6227 




JMP CHKSNS 


c. J. / 


01 75 


00 70 




SET I 10 




017 6 


0671 




ANSWER 


2111 


0177 


0603 




LIF 3 


2112 


02 0 0 


6531 




JMP MF8 


2113 


0201 


6017 




JMP 17 


2114 


0202 


6171 




JMP MFA 


2115 


0203 


0057 


M6 , 


SET 17 


2116 


0204 


0000 




0 


2117 


0205 


6703 


M6Ar 


JMP QAINIT 


2 ipci 

C J, & 


0206 


0527 




MESS6 


2121 


0207 


0671 




ANSWER 


212 2 


0210 


6227 




JMP CHKSNS 


2123 


0211 


0070 




SET I 10 


2124 


0212 


0671 




ANSWER 


(c; 4, 


0213 


1330 




LDH 1 10 


2126 


0214 


1420 




SHD I 


2127 


0215 


0300 




0300 


2130 


0216 


6017 




JMP 17 


2131 


0217 


6205 




JMP M6A 


2132 


0220 


0045 


ANSBUF , 


SET 5 


2133 


0221 


0000 




0 


2134 


0222 


1330 




LOH I 10 


2135 


0223 


0603 




LIF 3 


2136 


0224 


0040 




SET 0 


2137 


0225 


0005 




5 


2140 


0226 


6000 




JMP 0 


2141 


0227 


0440 


CHKSNS # 


SNS 0 


2142 


0230 


6756 




JMP QARFSH 


2143 


0231 


6044 




JMP START 


2144 


0232 


0623 






2144 


0233 


2401 






2144 


0234 


2224 






2144 


0235 


1116 






2144 


0236 


0740 






2144 


0237 


0310 






2144 


0240 


0116 






2144 


0241 


1605 






2144 


0242 


1440 







2144 


0243 


4074 


2144 






2145 


0244 


6243 








2146 


0245 


4743 


2146 


0246 


0616 


2146 


0247 


2515 


2146 


0250 


0205 


2146 


0251 


2240 


2146 


0252 


1706 


2146 


0253 


4003 


2146 


0254 


1001 


2146 


0255 


1616 


2146 


0256 


0514 


2146 


0257 


2340 


2146 


0260 


7462 


2146 


0261 


3400 


2146 






2147 


0262 


0623 


2147 


0263 


2401 


2147 


0264 


2224 


2147 


0265 


1116 


2147 


0266 


0740 


2147 


0267 


2402 


2147 


0270 


1413 


2147 


0271 


4074 


2147 






2150 


0272 


6343 


2150 






2151 


0273 


4743 


2151 


0274 


0640 


2151 


0275 


4040 


2151 


0276 


4040 


2151 


0277 


4040 


2151 


0300 


4040 


2151 


0301 


2201 


2151 


0302 


2405 


2151 


0303 


4074 


2151 






2152 


0304 


6443 


2152 






2153 


0305 


4743 


2153 


0306 


0640 


2153 


0307 


2540 


2153 


0310 


1722 


2153 


0311 


4015 


2153 


0312 


4017 


2153 


0313 


2240 


2153 


0314 


2377 


2153 


0315 


4074 


2153 






2154 


0316 


6143 


2154 






2155 


0317 


4743 


2155 


0320 


0604 


2155 


0321 


0514 


2155 


0322 


0131 


2155 


0323 


7540 


2155 


0324 


7463 


2155 


0325 


4030 


2155 


0326 


4022 


2155 


0327 


0124 


2155 


0330 


0534 



MESS2» TEXT 2FSTARTING CHANNEL <2 



FNUM8ER OF CHANNELS <2\2 



MESS3, TEXT ZFSTARTING TBLK <3 



RATE <4 



F y OR M OR S? <1 









2156 


0331 


06 40 


2156 


0332 


404 0 


2156 


0OOv5 


4040 


2156 


0334 


4023 


2156 


0335 


3116 


2156 


033 6 


0340 


2156 


03 37 


1716 


2156 






21 57 


03 40 


f c 43 


2157 






2160 


03 41 


4/43 






W 06 1 




0O HO 


50 40 


clo0 


ffl TT ^ J* 

«y 0 *T 4 


O '? i'Tf c 
CO 07 


2160 


/X T j1 K 
03^ t3 


*t A O TT 

lo23 


2160 


03 46 


0540 


2160 


03 47 


2327 


2160 


0350 


1124 


2160 


0351 


0310 


2160 






2161 


0352 


4016 


2161 


0353 


4306 


2161 


0354 


6256 


2161 


0355 


4005 


2161 


0356 


3024 


2161 


0357 


0522 


2161 


^ f/. 

0360 


1601 




0ool 


1440 


2161 


Ol "T O 

0362 


1405 


2161 


0360 


o A m c 

2605 


2161 


0364 


A A fx 

1440 


2161 






2162 


03 65 


1643 


2162 


0366 


0663 


2162 


0367 


5640 


2162 


0370 


0314 


2162 


0371 


1703 


2162 


0372 


1340 


2162 


0373 


0310 


2162 


0374 


0116 


2162 


03 75 


1605 


2162 


037 6 


1440 


2162 






2163 


rtl "7 "T 

0377 


1643 


2163 






2164 


0 400 


4743 


2164 


0401 


0640 


2164 


0402 


4040 


2164 


0403 


4040 


2164 


0 40 4 


4040 


2164 


040 5 


4003 


216 4 


0 40 6 


1704 


2164 


0407 


0540 


2164 






2165 


0410 


7461 




0411 


43 06 


2165 


0412 


4040 




W nX 0 




2165 


0414 


4040 


2165 


0415 


4040 


2165 


0416 


1640 


2165 


0417 


7461 



FOELAY= <3 X RATENE 



M£SS4j 



TEXT 2F 



SYNC ONJ 



Fl, SENSE SWITCH N 



F2, EXTERNAL LEVEL N 



F3, CLOCK CHANNEL N 



CODE <1 



2165 0420 3400 

2165 F H <1\2 

2166 

2167 0421 0640 

2167 0422 4040 

2167 0423 0516 

2167 0424 0440 

2167 0425 2301 

2167 0426 1520 

2167 0427 1411 

2167 0430 1607 

2167 0431 4017 

2167 MESS5, TEXT if END SAMPLING ONI 

2170 0432 1672 
2170 

2171 0433 4347 
2171 0434 4306 
2171 0435 6156 
2171 0436 4023 
2171 0437 0516 
2171 0440 2305 
2171 0441 4023 
2171 0442 2711 
2171 0443 2403 
2171 0444 1040 

2171 Fl, SENSE SWITCH N 

2172 0445 1643 
2172 0446 0662 
2172 0447 5640 
2172 0450 0530 
2172 0451 2405 
2172 0452 2216 
2172 0453 0114 
2172 0454 4014 
2172 0455 0526 
2172 0456 0514 

2172 F2, EXTERNAL LEVEL N 

2173 0457 4016 
2173 0460 4306 
2173 0461 6356 
2173 0462 4003 
2173 0463 1417 
2173 0464 0313 
2173 0465 4003 
2173 0466 1001 
2173 0467 1616 
2173 0470 0514 

2173 F3, CLOCK CHANNEL N 

2174 0471 4016 
2174 0472 4306 
2174 0473 6456 
2174 0474 4024 
2174 0475 1724 
2174 0476 0114 
2174 0477 4020 
2174 0500 2423 
2174 0501 4020 
2174 0502 0522 
2174 0503 4003 
2174 0504 1056 

2174 F4, TOTAL PTS PER CH. N 

2175 0505 4016 
2175 



2176 


05WO 


4347 


2176 


0507 


43 06 


2176 


0510 


4040 


2176 


0511 


4040 


2176 


0512 


4040 


2176 


0513 


4040 


2176 


0514 


0317 


2176 


0515 


0405 


2176 


0516 


4074 


2176 






2177 


0517 


6143 


2177 


0520 


0640 


2177 


0521 


4040 


2177 


0522 


4040 


2177 


0523 


4040 


2177 


0524 


4016 


2177 


0525 


4074 


2177 


0526 


6434 


2177 






2200 






2201 


0527 


0640 


2201 


0530 


4015 


2201 


0531 


1725 


2201 


05 32 


1624 


2201 


0533 


4004 


2201 


0534 


0124 


2201 


0535 


0140 


2201 


0536 


2401 


2201 






o o m o 

2202 


05o7 


o ri rx cr 

2005 


2202 






2203 


0540 


4347 


2203 


0541 


4306 


22 03 


05 42 


40 40 


2203 


0543 


4040 


2203 


0544 


4017 


2203 


0545 


1640 


2203 


0546 


2516 


2203 


0547 


1124 


2203 






2204 


0550 


4061 


2204 






2205 


0551 


4347 


2205 


0552 


4306 


2205 


0553 


2431 


2205 


0554 


2005 


2205 


0555 


4003 


2205 


0556 


4024 


2205 


0557 


1740 


2205 


0560 


0317 


2205 


0561 


1624 


2205 


0562 


1116 


2205 


0563 


2505 


2205 


0564 


7461 


2205 


0565 


3400 


2205 






2206 


0566 


0640 


2206 


0567 


4023 


o o m 

2200 


0570 


0126 


2206 


0571 


0540 


2206 


0572 


2001 


2206 


0573 


2201 


2206 


0574 


1505 



CODE <1 



N <4\Z 



MESS6. TEXT HF MOUNT DATA TAPE 



ON UNIT 1 



FTYPE C TO C0NTINUE<1\Z 



2206 0575 2405 

2206 0576 2223 

2206 MESSE, TEXT 2r SAVE PARAMETERS? 

2207 0577 7743 
2207 

2210 0600 4743 
2210 

2211 0601 4743 
2211 0602 0640 
2211 0603 4040 
2211 0604 1106 
2211 0605 4016 
2211 0606 1754 
2211 0607 2431 
2211 0610 2005 
2211 0611 4040 

2211 r IF NOfTYPE N 



2212 0612 1643 

2212 0613 0640 

2212 0614 4040 

2212 0615 1106 

2212 0616 4031 

2212 0617 0523 

2212 0620 5424 

2212 0621 3120 



2212 0622 0540 

2212 F IF YESiTYPE Y 

2213 0623 4031 
2213 

2214 0624 4347 
2214 0625 4306 
2214 0626 4040 
2214 0627 4040 
2214 0630 4040 
2214 0631 2205 
2214 0632 2014 
2214 0633 3140 
2214 0634 7461 
2214 0635 3400 

2214 F REPLY <1\E 

2215 0636 0640 

2215 0637 4040 

2215 0640 2402 

2215 0641 1413 

2215 0642 4014 

2215 0643 1703 

2215 0644 0124 

2215 0645 1117 

2215 MESSF, TEXT If TBLK LOCATION? 

2216 0646 1677 
2216 

2217 0647 4347 
2217 

2220 0650 4347 

2220 0651 4306 

2220 0652 4040 

2220 0653 4040 

2220 0654 2402 

2220 iQ^5 1413 

2220 0656 4016 

2220 0657 1756 

222(5 06b'3 4.^74 

2220 F TBLK NO. <3 



2221 


0661 


6343 






2221 


0662 


0640 






2221 


0663 


4040 






2221 


0664 


4025 






2221 


0665 


1611 






2221 


0666 


2440 






2221 


0667 


4074 






2221 


0670 


6134 






2221 






F 


UNIT <1\H 


2222 


0671 


0000 


ANSWER. 0 


2223 








,*11 


2224 








NOLIST 


3201 








SEGMNT 3 


3202 










3203 


0020 


0055 


M28, 


SET 15 


3204 


0021 


0000 




0 


3205 


0022 


0054 




SET 14 


3206 


0023 


0655 




INPTR 


3207 


0024 


0640 




LDF 0 


3210 


0025 


1020 




IDA I 


3211 


0026 


0010 




10 


3212 


0027 


1040 




STA 


3213 


0030 


0647 




MUlWD 


3214 


0031 


0017 




COM 


3215 


0032 


4641 




STC UPUIM 


3216 


0033 


6611 




JMP CHAR 


3217 


0034 


0467 




SKP 


3220 


0035 


7016 




JMP ERRORX 


3221 


0036 


1000 




LOA 


3222 


0037 


0656 




OCTAC 


3223 


0040 


1120 




ADA I 


3224 


0041 


7740 




s! 3 7 


3225 


0042 


0471 




APO I 


3226 


0043 


7016 




JMP ERRORX 


3227 


0044 


1000 




LOA 


3230 


004t3 


0656 




OCTAC 


3231 


0046 


1460 




SAE I 


3232 


0047 


1111 




7777 


3233 


0050 


0467 




SKP 


3234 


0051 


0011 




CLR 


3235 


0052 


4657 




STC STCHTP 


3236 


0053 


1020 




LOA I 


3237 


0054 


0012 




12 


3240 


0055 


1040 




STA 


3241 


0056 


0647 




MULWD 


3242 


0057 


0017 




COM 


3243 


0060 


4641 




STC UPLIM 


3244 


0061 


6611 




JMP CHAR 


3245 


0062 


0467 




SKP 


3246 


0063 


7016 




JMP ERRORX 


3247 


0064 


1000 




LDA 


3250 


0065 


0656 




OCTAC 


3251 


0066 


0470 




AZE I 


3252 








3253 


0067 


7016 




JMP ERRORX 


3254 


0070 


1120 




ADA I 


3255 


0071 


7757 




«20 


3256 


0072 


0471 




APO I 


3257 


0073 


7016 




JMP ERRORX 


3260 


0074 


1120 




ADA I 


3261 


0075 


0010 




10 


3262 


0076 


0471 




APO I 


3263 


0077 


6130 




JMP NCH20 



3264 

3265 

3266 

3267 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

^300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3320 

3321 

3322 

33 23 

3324 

3325 

3326 

3327 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 

3340 

3341 

3342 

3343 

3344 

3345 

3 34 6 

3347 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3360 

3361 

3362 



0100 
0101 

0102 

010.5 

0104 

0105 

0106 

0107 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0150 

0151 

0152 

0153 

0154 

0l5t? 

01S6 

0157 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0170 

0171 

0172 

0173 

0174 

0175 

0176 



1120 

0004 

0471 

6133 

1120 

0002 

0471 

6136 

1000 

0656 

1040 

0660 

2657 

1120 

7737 

0471 

7016 

1000 

0657 

10 74 

1000 

0660 

1074 

7017 

1020 

0020 

6112 

1020 

0010 

6112 

1020 

0004 

6112 

0055 

0000 

1020 

7767 

4724 

1020 

7223 

4750 

6662 

0467 

7016 

1000 

1203 

1040 

1370 

1120 

7001 

0471 

7016 

1020 

7765 

4724 

i020 

7235 
4750 

6662 
0467 
7016 
0602 
6220 



SUMCHN 



NCH20, 



NCH10I 



NCH4, 



M3B, 



ADA I 
4 

APO I 

MP NCHi0 

ADA I 

2 

APO I 
JMP NCH4 

IDA 
OCTAC 

STA 
NCHTP 

ADO STCHTP 

ADA I 
»40 
APO I 

JMP ERRORX 

IDA 

STCHTP 
STA I 14 
LOA 
NCHTP 
STA I 14 
JMP NORMX 
IDA I 
20 

JMP SUMCHN 
LDA I 

10 

JMP SUMCHN 

LOA I 

4 

JMP SUMCHN 
SET 15 
0 

LDA I 
-10 

STC UPLIMl 
LOA I 
JMP H8TAC 
STC MULWDl 

JMP CHRTPL 
SKP 

JMP ERRORX 

LOA 

LOTAC 

STA 

STBLK 

ADA I 

-776 

APO I 

JMP ERRORX 
LDA I 
-12 

STC UPLIMl 
LOA I 

JMP M10TAC 
STC MULWDl 
JMP CHRTPL 
SKP 

JMP ERRORX 
JMP ANSBUF 



/STR STBLK TEMP 
/STBLK < 777? 



/NO 

/CONVERT RATE 5 

/DELAY FROM DECt 
/INP TO OCT SUM 



3363 


0177 


1420 




SHD I 


/IS CHAR A U? 


3364 


0200 


2500 




2500 




3365 


0201 


7023 




JMP UCHK 


/YES 


3366 


0202 


1420 




SHD I 


/IS CHAR AN M? 


3367 


0203 


1500 




1500 




3370 


0204 


7040 




JMP MCHK 


/YES 


3371 


0205 


1420 




SHD 1 


/IS CHAR AN S? 


3372 


0206 


2300 




2300 




3373 


0207 


7050 




JMP SCHK 


/YES 


3374 


0210 


7016 




JMP ERRORX 




3375 


0211 


0602 


RTN* 


L IF 2 




3376 


0212 


6220 




JMP ANSBUF 




3377 


0213 


1420 




SHD I 


/NEXT CHAR 


3400 


0 214 


7400 




7400 


/IS A 74? 


3401 


0215 


0467 




SKP 


/YES 


3402 


0216 


7016 




JMP ERRORX 


/HAS TO BE 


3403 


0217 


7267 




JMP CNTREG 




3404 


0220 


0467 




SKP 




3405 


0221 


7016 




JMP ERRORX 




3406 


0222 


6662 




JMP CHRTPL 




3407 


0223 


0467 




SKP 




3410 


0224 


7016 




JMP ERRORX 




3411 


0225 


1000 




LDA 


/GET DELAY 


3412 


0226 


1203 




LOTAC 


/NUM 


3413 


0227 


1074 




STA I 14 


/STORE SYNDLY 


3414 


0230 


7017 




JMP NQRMX 




3415 


0231 


0055 


M48i 


SET 15 




3416 


0232 


0000 




0 




3417 


0233 


1020 




LOA I 


/CONVERT SYNCON 


3420 


0234 


0010 




10 


/NUM FROM 


3421 


0235 


1040 




STA 


/OCTAL INPUT 


3422 


0236 


0647 




MULWD 


/TO 


3423 


0237 


0017 




COM 


/OCTAL 


3424 


0240 


4641 




STC UPLIM 


/SUM 


3425 


0241 


6611 




JMP CHAR 




3426 


0242 


0467 




SKP 




3427 


0243 


7016 




JMP ERRORX 




3430 


0244 


1000 




LOA 




3431 


0245 


0656 




OCTAC 




3432 


0246 


4657 




STC STCHTP 


/TEMP STORE 


3433 


0247 


6611 




JMP CHAR 




3434 


0250 


0467 




SKP 




3435 


0251 


7016 




JMP ERRORX 




3436 


0252 


1000 




LDA 




3437 


0253 


0657 




STCHTP 


/GET SYNCON NUM 


3440 


0254 


1460 




SAE I 


/IS IT CL.CH,? 


3441 


0255 


0003 




3 




3442 


0256 


6270 




JMP 8YCLK 


/NO 


3443 


0257 


1000 




LDA 


/YES 


3444 


0260 


0656 




OCTAC 




3445 


0261 


0451 




APO 




3446 


0262 


7016 




JMP ERRORX 




3447 


0263 


1120 




ADA I 


/CCH IS NONNEG 


3450 


0264 


7774 


MINUS3; 


-3 


/CCH LESS THAN 4 


3451 


0265 


0471 




APO I 




3452 


0266 


7016 




JMP ERRORX 


/SHOULD BE 


3453 


0267 


6305 




JMP DONE 


/YES 


3454 


0270 


14 60 


8YCLK, 


SAE I 


/IS IT EXTL? 


3455 


0271 


0 00 2 




2 




3456 


0272 


0467 




SKP 




3457 


0 27 3 


6277 




JMP BYCLKl 




3460 


0274 


1460 




SAE 1 


/IS IT SSW? 


3461 


0275 


0001 




1 





3462 

34 63 

3464 

3465 

3466 

3467 

3470 

3471 

3472 

3473 

3474 

3475 

3 47 6 

3477 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3510 

3511 

3512 

3513 

3514 

351^ 

3516 

3517 

3520 

3521 

3522 

3523 

i524 

3 525 

3526 

3527 

3530 

3531 

3532 

3533 

3534 

3535 

3 53 6 

3 '5 5 7 

35i;^ 

3&41 

33 4 2 

3543 

3544 

3545 

3546 

3547 

3550 

3551 

3552 

3553 

3554 

3^55 

3556 

3557 

3560 



0276 

02 77 
0300 
0301 

0302 

0303 

0304 

0305 

0306 

0307 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

034 0 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0350 

0351 

0352 

0353 

03^4 

0355 

03^6 

0357 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0 36 7 

0370 

0371 

0372 

0373 

0374 



7016 
10 00 
0656 
1120 
7772 
0471 
7016 

1000 DONE. 



MINUS5i 



JMP ERRORX 
BYCLKii IDA 

OCTAC 
ADA I 
-5 

APO I 

JHP ERRORX 

LDA 

STCHTP 

ii74 STA I 14 

1000 IDA 

0656 OCTAC 

1460 SAE I 

7777 7777 

0467 SKP 

0011 CLR 

1074 STA I 14 

7017 JHP NORMX 

0055 n5B, SET 15 

0000 0 

6662 JMP CHRTPL 

0467 SKP 

7016 JMP ERRORX 

7204 JHP TACMOV 

1103 HOTACl 

6662 JMP CHRTPL 

0467 SKP 

7^16 JMP ERRORX 

7204 JMP TACMOV 

1106 NTACl 

0062 SET I 2 

2055 20 55 

1022 LDA I 2 

0017 COM 

^1^3 ADD LOTACl 

0450 AEE 

^347 JHP ,*5 

1022 LOA I 2 

Ml? COM 

^3110 ADO NTAC3 

0450 AZE 
0467 SKP 

7216 JMP ERRORX 

1000 LDA 

1105 LOTACl 

1460 SAE I 

0004 4 

0467 SKP 

6412 JMP DONEl 

1460 SAE I 

0003 3 

6375 JMP 8YCLK2 

1000 LOA 

11136 NTACl 

0451 APO 

7016 JMP ERRORX 

7111 JMP TPLAOO 

^^^^27 SUBT3 

1000 LDA 

1201 HOTAC 

0471 APO I 

7016 JMP ERRORX 

6412 JMP DDNEl 



/NO 



/IS SSi^ OR EKTL 
/NUM LESS THAN 6 

/NO 
/YES 

/STORE SYNCDN 



/STORE SYNNUM 



/SAVE STQPON 



/SAVE STOPNO 

/ADOR-1 or 

/SYNCON NUM 

/GET SYNCON 

/ADD STOPON 

/SYNCON-STOPON? 

/NO 

/GET SYNNUH 

/ADO STOPNO 
/SYNNUMsSTOPNO? 

/NO 

/THEY MUST DIPF, 

/GET STOPON 
/TOTAL PTS 
/PER CHAN? 

/YES 

/CL»CH,? 

/NO 

/YES 

/CLtCHt>0? 
/SHOULD BE 
/CL, CH,<4I 



/NO, SHOULD BE 
/YES 



3561 


0375 


1460 


BYCLK2, 


SAE I 




3562 


03 76 


0002 




2 


/EXT LEVEL? 


3563 


0377 


0467 




SKP 




3564 


0400 


6404 




JMP BYCLK3 




3565 


0401 


1460 




SAE I 




3566 


0402 


0001 




1 


/ssw? 


3567 


0403 


7016 




JMP ERRORX 




3570 


0404 


7111 


8YCLK3, 


JMP TPLADD 


/IS EXTL 


3571 


0405 


0432 




SUBT6 


/OR SSW<6? 


3572 


0406 


1000 




LOA 




3573 


0407 


1201 




HOTAC 




3574 


0410 


0471 




APO I 




3575 


0411 


7016 




JMP ERRORX 


/NO 


3576 


0412 


1000 


OONEli 


LDA 


/YES 


'6517 


0413 


1105 




LOTACl 




3600 


0414 


1074 




STA I 14 


/STORE STOPON 


3601 


0415 


1000 




LDA 




3602 


0416 


1106 




NTACl 


/STORE 


3603 


0417 


1074 




STA 1 14 


/STOPNO 


3604 


0420 


1000 




LOA 


/IT 


3605 


0421 


1107 




NTAC2 


/IS 


3606 


0422 


1074 




STA I 14 


/A 


3607 


0423 


1000 




LDA 


/TRIPPLE 


3610 


0424 


1110 




NTAC3 


/PREC 


3611 


0425 


1074 




STA I 14 


/NUM 


3612 


0426 


7017 




JMP NORMX 




3613 


0427 


1111 


SUBT3, 


7777 




3614 


0430 


1111 




7777 




3615 


0431 


lllA 




7774 


/-3 


3616 


0432 


1111 


SUBT6, 


7777 




3617 


0433 


nil 




7777 




3620 


0434 


1112 




7772 


/-5 


3621 


0435 


0055 


MBB* 


SET 15 




3622 


0436 


0000 




0 




3623 


0437 


0640 




LDF 0 




3624 


0440 


1020 




LDA I 




3625 


0441 


0010 




10 




3626 


0442 


1040 




STA 




3627 


0443 


1012 




MULWD3 




3630 


0444 


0017 




COM 




3631 


0445 


5004 




STC UPLIM3 




3632 


0446 


6754 




JMP CHRTER 




3633 


0447 


0467 




SKP 




3634 


0450 


6604 




JMP ERORX 




3635 


0451 


1000 




LDA 


/SAVE 


3636 


0452 


0656 




OCTAC 


/PARAMETER 


3637 


0453 


4602 




STC PTBNSV 


/TBLK NO. 


3640 


0454 


6754 




JMP CHRTER 




3641 


0455 


0467 




SKP 




3642 


0456 


6604 




JMP ERORX 




3643 


0457 


1000 




LDA 




3644 


0460 


0656 




OCTAC 




3645 


0461 


1040 




STA 


/SAVE 


3646 


0462 


0603 




UNITSV 


/UNIT NO, 


3647 


0463 


1120 




ADA I 




3650 


0464 


7776 




-1 




3651 


0465 


0471 




APO I 




3652 


0466 


6604 




JMP ERORX 




3653 


0467 


1000 




LDA 




3654 


0470 


0603 




UNITSV 




3655 


0471 


0470 




A2E I 




3656 


0472 


6475 




JMP .+3 




3657 


0473 


1020 




LDA I 





3e60 


04 7 4 


0010 




10 


3661 


0475 


1120 




ADA 1 


3 H 2 


0476 


0700 




RDC 




047 7 


4^04 




STC TPWROl 


3664 


0500 


1020 




IDA I 


366i 


0501 


4000 




4000 


3666 


0502 


2602 




ADO PTBNSV 


3667 


0503 


4505 




STC TPWRD2 


3670 


0504 


0000 


TPWRDl, 


0 


3671 


0505 


0000 


TPNR02. 


0 


3672 


0506 


6605 




JMP NDMX 


3673 


0507 


0055 


MD8, 


SET 15 


3674 


0510 


0000 




0 


3675 


0511 


6754 




J HP CHRTER 


3676 


0512 


0467 




SKP 


3677 


0513 


6604 




JMP ERORX 


3700 


0514 


1000 




LDA 


3701 


0515 


0656 




OCTAC 


3702 


0516 


1460 




SAE I 


3703 


0517 


7777 




7777 


3704 


0520 


0467 




SKP 


3705 


0521 


0011 




CLR 


3706 


0522 


1040 




STA 


3707 


0523 


2052 




2000+52 


3710 


0524 


1120 




ADA I 


3711 


0525 


7001 




«776 


3712 


0526 


0471 




APO I 


3713 


0527 


6604 




JMP ERORX 


3714 


0530 


6605 




JMP NOMX 


3715 


0531 


0055 


MFB# 


SET 15 


3716 


0532 


0000 




0 


3717 


0533 


1020 




LDA I 


3720 


0534 


0010 




10 


3721 


0535 


1040 




STA 


3722 


0536 


0647 




MULWD 


3723 


0537 


0017 




COM 


3724 


0540 


4641 




STC UPLIM 


3725 


0541 


6611 




JMP CHAR 


3726 


0542 


0467 




SKP 


3727 


0543 


7016 




JMP ERRORX 


3730 


0544 


1000 




LDA 


3731 


0545 


0656 




OCTAC 


3732 


0546 


4602 




STC PTBNSV 


3733 


0547 


6611 




JMP CHAR 


3734 


0550 


0467 




SKP 


3735 


0551 


7016 




JMP ERRORX 


3736 


0552 


1000 




LDA 


3737 


0553 


0656 




OCTAC 


3740 


0554 


1040 




STA 


3741 


0555 


0603 




UNITSV 


3742 


0556 


1120 




ADA I 


3743 


0557 


7776 




"1 


3744 


0560 


0471 




APO I 


3745 


0561 


7016 




JMP ERRORX 


3746 


0562 


1000 




LDA 


3747 


0563 


0603 




UNITSV 


37 50 


0564 


0470 




A2E I 


3751 


0565 


6570 




JMP ,+3 


3752 


0566 


1020 




LDA I 


3753 


0567 


0010 




10 


3754 


0570 


1120 




ADA I 


3755 


0571 


0704 




WRC 


3756 


0572 


4577 




STC TAPEWl 



/MBLK = 0 OF 
/CURRENT OF 



/STTBLK < 777? 
/NO 



/SAVE 

/PARAMETER 
/T8LK NO, 



/SAVE 
/UNIT NO. 



3757 


0573 


1020 




LOA I 


/MBLK=0 OF 


3760 


0574 


4000 




4000 


/CURRENT OF 


3761 


0575 


2602 




ADD PTBNSV 




3762 


0576 


4600 




STC TAPEW2 




3763 


0577 


0000 


TAPEWl, 


0 




3764 


0600 


0000 


TAPEW2^ 


0 




3765 


0601 


7017 




JMP NORMX 




3766 


0602 


0000 


PTBNSV, 


0 




3767 


0603 


0000 


UNITSVi 


0 




3770 


0604 


0235 


ERONX, 


XSK I 15 




3771 


0605 


0601 


NOMX, 


LIF 1 




~6772 


0606 


0040 




SET 0 




3773 


0607 


0015 




15 




3774 


0610 


6000 




JMP 0 




3775 


0611 


0056 


CHAR* 


SET 16 




3776 


0612 


0000 




0 




'illl 


0613 


0011 




CLR 




4000 


0614 


4656 




STC OCTAC 


/CLR LOG OCTAC 


4001 


0615 


0602 


LOOPli 


LIF 2 




4002 


0616 


6220 




JMP ANSBUF 




4003 


0617 


1420 




SHD I 




4004 


0620 


7400 




7400 


/END OF ANS F.7 


4005 


0621 


6016 




JMP 16 


/YES 


4006 


0622 


1420 




SHO I 


/NO 


4007 


0623 


3400 




3400 


/EOM? 


4010 


0624 


6016 




JMP 16 


/YES 


4011 


0625 


1420 




SHD I 


/NO 


4012 


0626 


0000 




0 


/A BLANK? 


4013 


0627 


6615 




JMP LOOPl 


/YES 


4014 


0630 


1120 




ADA I 


/NO 


4015 


0631 


7717 




«60 


/A DIGIT? 


4016 


0632 


1040 




STA 




4017 


0633 


0661 




NUM 




'4020 


0634 


1120 




ADA I 




4021 


0635 


0001 




1 




4022 


0636 


0451 




APO 


/NUM IS NONNEG? 


4023 


0637 


6653 




JMP XIT 


/SHOULD BE 


4024 


0640 


1120 




ADA I 


/YES 


4025 


0641 


0000 


UPLIMi 


0 


/IS NUM LESS 


4026 


0642 


0471 




APO I 


/THAN 10 OR 12? 


4027 


0643 


6653 




JMP XIT 


/IT SHOULD BE 


4030 


0644 


1000 




LOA 


/YES 


4031 


0645 


0656 




OCTAC 


/MUL BY 10 OR 12 


4032 


0646 


1260 




MUL I 


/FOR OCT OR DEC 


4033 


0647 


0000 


MULWD# 


0 


/CON VERS ION 


4034 


0650 


2661 




ADD NUM 




4035 


0651 


4656 




STC OCTAC 




4036 


0652 


6615 




JMP LOdPl 




4037 


0653 


0236 




XSK I 16 


/BEGIN MESS AGN. 


4040 


0654 


6016 




JMP 16" 




4041 


0655 


2047 


INPTR, 


2047 




4042 


0656 


0000 


OCTAC, 


0 




4043 


0657 


0000 


STCHTP; 


0 




4044 


0660 


0000 


NCHTP* 


0 




4045 


0661 


0000 


NUM,~ 


0 




4046 


0662 


0056 


CHRTPLi 


SET 16 


/RTN JMP TO 


4047 


0663 


0000 




0 


/CURRENT MESS 


4050 


0664 


0011 




CLR 




4051 


0665 


5074 




STC NUMSAV 




4052 


0666 


7253 




JMP TPLCLR 


/CLR TAC 


4053 


0667 


1201 




HOTAC 




4054 


0670 


7253 




JMP TPUCLR 


/CLR A T,Pi REG 


4055 


0671 


1106 




NTACl 





4056 


0672 


0064 




SET I 4 


4057 


0673 


0000 




0 


4060 


0674 


0602 


L00P2* 


L IF 2 


4061 




6220 




JHP ANS8UF 


4062 


0676 


1420 




SHD I 


4063 


0677 


7400 




7400 


4064 


0700 


6016 




JHP 16 


4065 


0701 


1420 




SHO I 


4066 


0702 


3400 




3400 


4067 


0703 


6016 




JMP 16 


4070 


0704 


1420 




SHD I 


4071 


0705 


0000 




0 


4072 


0706 


6674 




JMP L00P2 


4073 


0707 


1120 




ADA I 


4074 


0710 


7717 




•'60 


4075 


0711 


0450 




A2E 


4076 


0712 


6715 




JMP , +3 


4077 


0713 


1020 




IDA 1 


4100 


0714 


0000 




0 


4101 


0715 


1040 




STA 


4102 


0716 


0661 




NUM 


4103 


0717 


1120 




ADA 1 


4104 


0720 


0001 




1 


4105 


0721 


0451 




APO 


4106 


0722 


6653 




JHP XI T 


4107 


0723 


1120 




ADA I 


4110 


0724 


0000 


UPLIMl, 


0 


4111 


0725 


0471 




APO I 


4112 


0726 


6653 




JMP KIT 


4113 


0727 


0224 




XSK I 4 


4114 


0730 


1000 




LOA 


4115 


0731 


0004 




4 


4116 


0732 


1460 




SAE I 


4117 


0733 


0003 




3 


4120 


0734 


0467 




SKP 


4121 


Q76b 


6741 




JMP ,+4 


4122 


0736 


1460 




SAE I 


4123 


0737 


0004 




4 


4124 


0740 


6745 




JMP ,+5 


4125 


0741 


1000 




LOA 


4126 


0742 


1074 




NUMSAV 


4127 


0743 


2661 




ADD NUM 


4130 


0744 


5074 




STC NUMSAV 


4131 


0745 


1000 




LD A 


4132 


0746 


0661 




NUM 


4133 


0747 


5110 




STC NTAC3 


4134 


0750 


0000 


MULWDl? 


0 


4135 


0751 


7111 




JMP TPLADD 


4136 


0752 


1106 




NTACl 


4137 


0753 


6674 




JMP L00P2 


4140 


0754 


0056 


CHRTER* 


SET 16 


4141 


0755 


0000 




0 


4142 


0756 


0011 




CLR 


4143 


0757 


4656 




STC OCTAC 


4144 


0760 


0601 


L00P3^ 


LIF 1 


4145 


0761 


6133 




JMP ANSBF 


4146 


0762 


1420 




SHD I 


4147 


0763 


7400 




7400 


4150 


0764 


6016 




JMP 16 


4151 


0765 


1420 




SHD I 


4152 


0766 


3400 




3400 


4153 


0767 


6016 




JMP 16 


4154 


0770 


1420 




SHO I 



/EtOtANStFtt 

/EOM? 

/A BLANK? 

/A DIGIT? 

/HAKE *0 



/Hon NEG? 
/SHOULD BE 
/YES 

/IS NO<10 OR 12? 

/SHOULD BE 
/INCR B4 



/C(B3)s3? 

/NO 
/YES 

/C(B3)«4? 

/NO 
/YES 

/SAVE SUM 
/OF 3RD AND 
/4TH DIGITS 

/GET DIGIT BACK 



/ADD NUM 

/TO TAC 

/GET NEXT CHAR 



4155 


07 71 


0000 




0 




4156 


07 72 


6760 




JMP U00P3 




4157 


0773 


1120 




ADA I 




4160 


0774 


7717 




js60 




4161 


0775 


104 0 




STA 




4162 


0776 


0661 




NUM 




4163 


0777 


1120 




ADA I 




4164 


1000 


00 01 




1 




4165 


1001 


04 51 




APO 




4166 


1002 


6653 




JMP KIT 




4167 


1003 


1120 




ADA I 




4170 


1004 


0000 


UPLIM3, 


0 




4171 


1005 


0471 




APO I 




4172 


1006 


6653 




JMP KIT 




4173 


1007 


1000 




LDA 




417 4 


1010 


0656 




OCTAC 




4175 


1011 


1260 




MUU I 




4176 


1012 


0000 


MULW03, 


0 




4177 


1013 


2661 




ADD NUM 




4200 


1014 


4656 




SIC OCTAC 




4201 


1015 


6760 




JMP L00P3 




4202 


1016 


0235 


ERRORXi 


XSK I 15 




4203 


1017 


0602 


NORMX, 


LIT 2 




4if04 


1020 


0040 




SET 0 




4205 


1021 


0015 




15 




4206 


1022 


6000 




JMP 0 




4207 


1023 


7204 


UCHK, 


JMP TACMOV 




4210 


1024 


1103 




HOTACl 


/LOC OF T,P. NUM 


4211 


1025 


1000 




LDA 




4212 


1026 


1074 




NUMSAV 




4213 


1027 


0450 




AZE 


/MULT OF 100USE;C 


4214 


1030 


7016 




JMP ERRORX 


/NO 


4215 


1031 


7111 




JMP TPUADO 


/YES 


4216 


1032 


1075 




M1000 


/IS NO>=;1000? 


4217 


1033 


1000 




LDA 




4220 


1034 


1201 




HOTAC 




4221 


1035 


0451 




APO 




4222 


1036 


7016 




JMP ERRORX 


/IT MUST BE 


4223 


1037 


6211 




JMP RTN 


/YES 


4224 


1040 


0063 


MCHK, 


SET I 3 




4225 


1041 


7774 




^3 




4226 


1042 


7235 




JMP M10TAC 


/MUl BY 1000 


4227 


1043 


0223 




XSK I 3 


/CHG TO USEC 


4230 


1044 


7042 




JMP ,-2 




4231 


1045 


7204 




JMP TACMOV 




4232 


1046 


1103 




HOTACl 


/LOC OF T.P, NUM 


4233 


1047 


6211 




JMP RTN 




4234 


10 50 


00 6 3 


SCHK, 


SET I 3 




4235 


1051 


7771 




-6 




4236 


10 52 


7204 




JMP TACMOV 




4237 


1053 


1103 




HOTACl 


/SAVE T.P. NUM 


4240 


1054 


7111 




JMP TPUADO 




4241 


1055 


1100 




M50 


/NUM<«40? 


4242 


1056 


1000 




IDA 




4243 


1057 


1201 




HOTAC 




4244 


1060 


0471 




APO I 




4245 


1061 


7016 




JMP ERRORX 


/NO 


4246 


1062 


7253 




JMP TPICLR 




4247 


1063 


1201 




HOTAC 


/CLR TAG 


4250 


1064 


7111 




JMP TPLADD 




4251 


1065 


1103 




HOTACl 




4252 


1066 


7235 




JMP M10TAC 


/MUL BY 1000000 


4253 


1067 


0223 




XSK I 3 


/CHG TO UwSEC 



4254 


1070 


7066 




JMP i«2 




4255 


1071 


7204 




JMP TACMOV 




4256 


1072 


1103 




HOTACl 


/LOC OF T,P, NUM 


4257 


1073 


6211 




JMP RTN 




4260 


1074 


0000 


NUMSAV, 


0 




4261 


1075 


7777 


M1000, 


1117 




4262 


1076 


7777 




7777 




4263 


1077 


6030 




6030 


/•1747 OCTAL 


4264 


1100 


7777 


H50, 


7777 




4265 


1101 


7777 




7777 




4266 


1102 


7727 




7727 


/•50 OCTAL 


4267 


1103 


0000 


HQTACl, 


0 


4270 


1104 


0000 


MOTACl. 


0 




4271 


1105 


0000 


LOT ACl^ 


0 




4272 


1106 


0000 


NTACl, 


0 




4273 


1107 


0000 


NTAC2, 


0 




4274 


1110 


0000 


NTAC3, 


0 




4275 


1111 


0053 


TPLADDi 


SET 13 




4276 


1112 


0000 




0 




4277 


1113 


7172 




JMP TPLGET 




4300 


1114 


0002 


P3, 


PDP 




4301 








PMOOE 




4302 


7115 


7100 




CLL 




4303 


7116 


7510 




SPA 


/ADO OR SU8T? 


4304 


7117 


7060 




CML CMA 


/SUBTi SET L « 


4305 


7120 


6141 




LINC 


/MAKE ADDR * 


4306 








LMOOE 




4307 


1121 


4011 




STC 11 


/AODR OF TPUW 


4310 


1122 


1011 




LDA 11 


/HI ORDER 3RD 


4311 


1123 


0452 




L2E 


/ADO OR SUBT7 


4312 


1124 


0017 




COM 


/SUBT, MAKE 


4313 


1125 


5153 




STC AODHI 


/ARC - 


4314 


1126 


1031 




LDA I 11 


/MID ORDER 3RD 


4315 


1127 


0452 




L2E 


4316 


llv50 


0017 




COM 




4317 


1131 


5150 




STC ADDMED 




4320 


1132 


1031 




LOA 1 11 


/LO ORDER 3RD 


4321 


1133 


0452 




L2E 


4322 


1134 


0017 




COM 




4323 


1135 


5167 




STC AOOLO 




4324 


1136 


0071 




SET I 11 


/PTR TO TAC 


4325 


1137 


1201 




HOTAC 


/HI ORD 3RD 


4326 


1140 


0067 




SET I 7 


/PTR TO TAC 


4327 


1141 


1202 




HOTAC 


/MID ORD 3RD 


4330 


1142 


0066 




SET I 6 


/PTR TO TAC 


4331 


1143 


1203 




LOTAC 


/LO ORD 3RD 


4332 


1144 


0011 




CLR 


/CLR LINK BIT 


4333 


1145 


3167 




ADD AODLO 


/ARGl *LOTAC 


4334 


1146 


1206 




LAN 6 


/TO LOTAC 


4335 


1147 


1020 




LDA I 


4336 


1150 


0000 


AOOMEOi 


0 


/ARG2*M0TAC 


4337 


1151 


1207 




LAM 7 


/TO MOTAC 


4340 


1152 


1020 




LOA I 
0 


4341 


1153 


0000 


ADDHI, 


/ARG3+H0TAC 


4342 


1154 


1211 




LAH 11 


/TO HOTAC 


4343 


1155 


5153 




STC AODHI 


/CLR ACdNOT L. 


4344 


1156 


0474 




FLO J 


/OVRFLO ONI HI 


4345 










/ORDER LAM? 


4346 


1157 


0017 




COM 


/ yr c 7 7 7 7 fn 


4347 






/ADDLO(ERROR FLAG) 


4350 


1160 


5167 




STC ADDLO 


/NO.0 TO ER.FLG, 


4351 


1161 


1206 




LAM 6 


/L «LOTAC TO LOT 


4352 


1162 


5150 




STC ADDMED 


/CLR AC«NOT L, 



4353 


1163 


1207 




LAM 7 


/L^MOTAC TO MO 


4354 


1164 


5153 




STC ADOHI 


/CLR AC^NOT L. 


4355 


116 5 


1211 




LAM 11 


/L5H0TAC TO HO 


4356 


1166 


1020 




LDA I 


/ERROR FLG TO 


4357 


1167 


0000 


ADDUvOf 


0 


/AC 


4360 


1170 


02 33 




XSK I 13 


/RETURN 


4361 


1171 


6013 




JMP 13 


/TO P4.2 


4362 


1172 


1000 


TPUGET, 


LDA 


/GET ADDR OF 


4363 


1173 


0013 




13 


/T,P.WD PTR 


4364 


1174 


1560 




BCL I 


/MASK OUT JMP 


4365 


117 5 


6 00 0 




6000 




4366 


1176 


4012 




STC 12 


/PUT ADDR OF 


4367 


1177 


1012 




LDA 12 


/T,P. WD IN AC 


4370 


1200 


6000 




JMP 0 




4371 


1201 


0000 


HOT AC, 


0 




4372 


1202 


0000 


HOTAC, 


0 




4373 


1203 


0000 


LOTAC^ 


0 




4374 


1204 


0053 


TACMOV, 


SET 13 


/MOVE TAG TO 


4375 


1205 


0000 




0 


/A TPL WO 


4376 


1206 


7172 




JMP TPLGET 


/GET ADDR 


4377 


1207 


4012 




STC 12 


/FROM AC 


4400 


1210 


3201 




ADD HOTAC 




4401 


1211 


1052 




STA 12 


/SAVE HOTAC 


'4402 


1212 


1000 




LDA 




4403 


1213 


120 2 




MOT AC 


/SAVE MOTAC 


4404 


1214 


1072 




STA I 12 




4405 


1215 


1000 




LDA 




4406 


1216 


1203 




10 TAG 


/AVE LOTAC 


4407 


1217 


1072 




STA I 12 




4410 


1220 


0011 




CLR 




4411 


1221 


0233 




XSK 1 13 


/RTN TO 


4412 


1222 


6013 




JMP 13 




4413 


1223 


1000 


M8TAC* 


LDA 




4414 


1224 


0000 




0 




4415 


1225 


5234 




STC M8RTN 




4416 


1226 


7111 




JMP TPLADD 




4417 


122 7 


1201 




HOTAC 


/2 X TAC 


4420 


1230 


7111 




JMP TPLADD 




4421 


1231 


1201 




HOTAC 


/4 X TAC 


4422 


1232 


7111 




JMP TPLADD 




4423 


1233 


1201 




HOTAC 


/8 X TAC 


4424 


12 34 


0000 


MaRTN, 


0 




4425 


1235 


100 0 


M10f AC? 


LDA 


/SAVE 


4426 


1236 


0000 




0 


/RETURN 


4427 


1237 


5252 




STC MULRTN 


/JMP 


4430 


1240 


7111 




JMP TPLADD 




4431 


1241 


1201 




HOTAC 


/2 X TAC 


4432 


1242 


7204 




JMP TACMOV 




4433 


1243 


1264 




TEMPSV 


/SAVE 2 X TAC 


44 34 


12 44 


7111 




JMP TPLADD 




4435 


1245 


1201 




HOTAC 


/4 X TAC 


4436 


1246 


7111 




JMP TPLADD 




4437 


1247 


1201 




HOTAC 


/8 X TAC 


4440 


1250 


7111 




JMP TPLADD 




4441 


1251 


1264 




TEMPSV 


/10 X TAC 


4442 


12 5 2 


0000 


MULRTNi 


0 


/RTN 


4 44 3 


1233 


0053 


TPLCLRi 


SET 13 




4444 


1254 


0000 




0 




4445 


1255 


7172 




JMP TPLGET 




4446 


1256 


4012 




STC 12 




4447 


1257 


1052 




STA 12 




4450 


1260 


1072 




STA 1 12 




4451 


1261 


1072 




STA I 12 





4452 


1262 


0233 


4453 


1265 


6013 


44^4 


1264 


0000 


4455 


1265 


0000 


4456 


1266 


0000 


4457 


1267 


0056 


4460 


1270 


0000 


4461 


1271 


0065 


4462 


1272 


7773 


4463 


1273 


1020 


4464 


127 4 


136 6 


446b 


127t5 


5325 


4466 


1276 


1020 


4467 


1277 


2100 


4470 


1300 


5367 


4471 


1301 


0011 


4472 


1302 


5366 


4473 


1303 


1020 


4474 


1304 


1000 


4475 


1305 


3367 


4476 


1306 


5367 


4477 


1307 


3325 


4500 


1310 


3365 


4501 


1311 


5325 


4502 


1312 


0225 


4503 


1313 


0467 


4504 


1314 


6653 


4505 


1315 


1000 


4506 


1316 


1103 


4507 


1317 


5201 


4510 


1320 


3104 


4511 


1321 


5202 


4512 


1322 


3105 


4513 


1323 


5203 


4514 


1324 


7111 


4515 


132t> 


0000 


4516 


1326 


0002 


4517 






4520 


7327 


2366 


4521 


7330 


7410 


4522 


7331 


5363 


4523 


7332 


6141 


4524 






4525 


1333 


1000 


4526 


1334 


1201 


4527 


1335 


0451 


4530 


1336 


7351 


4531 


1337 


0450 


4532 


1340 


7 3 24 


4533 


1341 


1000 


4534 


1342 


1202 


4535 


1343 


0450 


4536 


1344 


7324 


4537 


1345 


1000 


4540 


1346 


1203 


4541 


1347 


0450 


4542 


1350 


7324 


4543 


1351 


1000 


4544 


135 2 




4545 


1353 


1074 


4546 


1354 


1000 


4547 


1355 


1367 


4550 

m 


1356 


1074 



XSK I 13 
JMP 13 
TEMPSVi 0 



CNTREG, 



TPHERE, 



ADRESSi 



DATA, 



0 
0 

SET 16 

0 

SET I 5 

^4 

IDA I 

AODR-3 

SIC ADRESS 

LDA I 

2100 

STC CR 

CLR 

STC CO 
LDA I 
1000 
ADD CR 
STC CR 
ADO AORESS 
ADD A3 
STC ADRESS 
XSK I 5 
SKP 

JMP KIT 
IDA 

HOT ACl 
STC HOTAC 
ADD HOTACl 
STC HOTAC 
ADD LOTACl 
STC LOTAC 
JMP TPLADD 
0 

POP 
PMOOE 
IS2 CC 

SKP 

JMP TPH 

LING 

LMODE 

LDA 

HOTAC 

APO 

JMP DATA 

A2E 

JHP AORESS-l 

LOA 

MOTAC 

A2E 

JMP ADR£SS«1 

LDA 

LOTAC 

A2E 

JMP AORESS-i 

LDA 
STBLK 
STA I 14 

LDA 
CR 

STA I 14 



/PTR TO CL.RATE 



/UPDATE CR 10 X 



/HI OR RATE 

/MEO OR RATE 

/LO OR RATE 
/CALL T,P» RTN 

/CO4096? 



/SAMRATE 
/HAS GONE 
/TO 2ER0 
/OR IS 
/NEC? 



/YES 

/CL CONT RATE 



4551 


1357 


1000 




LDA 




4552 


1360 


1366 




CC 




4553 


1361 


107 4 




STA I 14 


/BUF-PRES REG 


4554 


1362 


6016 




JMP 16 




4555 








PMODE 




4556 


7363 


6141 


TPH; 


lINC 




4557 








IMODE 




4560 


1364 


7301 




JMP TPHERE 


/GET SLOWER CL 


4561 


1365 


0003 


A3? 


3 




4562 


1366 


0000 


CCi 


0 




4563 


1367 


0000 


CRi 


0 




4564 


1370 


0000 


STBLK? 


0 




4565 


1371 


1111 


ADDRi 


1111 




4566 


1372 


1117 




1111 




4567 


1373 


7633 




^144 


/«100 U«SEC 


4570 


1374 


1111 




7 7 7 7 




4571 


1375 


1111 




7 7 77 




4572 


1376 


6027 




-1750 


/<»1000 UoSEQ 


4573 


1377 


1111 




nil 




4574 


1400 


1115 




1115 




4575 


1401 


4357 




4357 


/«X0000 UaSEC 


4576 








SEGMNT 1 




4577 








*>20 




4600 


0020 


00 47 


MIA? 


SET 7 




4601 


0021 


0000 




0 




4602 


0022 


6703 


MIAA ^ 


JMP QA IN IT 




4603 


0023 


0142 




MESSl 




4604 


0024 


0671 




ANSWER 




4605 


0025 


6127 




JMP CHKSN 




4606 


0026 


0070 




SET I 10 




4607 


m'li 


0 671 




ANSWER 




4610 


0030 


1330 




LDH I 10 




4611 


0031 


1420 




SHD 1 




4612 


0032 


0300 




0300 


/IT IS A C? 


4613 


0033 


0467 




SKP 


/YES 


4614 


0034 


6022 




JMP MIAA 


/NO 


4615 


0035 


0602 


NORMXX* 


LIP 2 




4616 


0036 


00 40 




SET 0 




4617 


0037 


0007 




7 




4620 


0040 


6000 




JMP 0 




4621 


0041 


0047 


MA A? 


SET 7 




4622 


0042 


0000 




0 




4623 


0043 


6703 


HAAAp 


JMP QAINIT 




4624 


0044 


0201 




MESSA 




4625 


0045 


0671 




ANSWER 




4626 


0046 


6127 




JMP CHKSN 




4627 


0047 


0070 




SET I 10 




4630 


0050 


0 671 




ANSWER 




4631 


0051 


1330 




LDH I 10 




4632 


0052 


14 20 




SHD I 




4633 


0053 


1600 




1600 


/AN N? 


4634 


0054 


6035 




JMP NORMXX 


/YES 


4635 


0055 


1420 




SHD I 




4636 


0056 


3100 




3100 


/A Y? 


4637 


0057 


6061 




JMP MBA 


/YES 


4640 


0060 


6043 




JMP MAAA 


/NO 


4641 


0061 


6703 


MBA? 


JMP QAINIT 




4642 


0062 


0252 




MESSB 




4643 


0063 


0671 




ANSWER 




4644 


0064 


6127 




JMP CHKSN 




4645 


0065 


0070 




SET I 10 




4646 


0066 


0671 




ANSWER 




4647 


0067 


0603 




LIF 3 





4650 


0070 


6435 




JMP MB8 


4651 


0071 


6073 




JMP MCA 


4652 


0072 


6061 




JMP MBA 


4633 


00 7 3 


6703 


MCA, 


JMP QAINIT 


4654 


0074 


0306 




M£SSC 


4655 


0075 


0671 




ANSWER 


4656 


0076 


6127 




JMP CHKSN 


4657 


0077 


0070 




SET I 10 


4660 


0100 


0671 




ANSWER 


4661 


0101 


1330 




LOH I 10 


4662 


0102 


1420 




SHO I 


4663 


0103 


1600 




1600 


4664 


0104 


6111 




JMP ,*5 


4665 


010t? 


1420 




SHO I 


4666 


0106 


3100 




3100 


4667 


0107 


6113 




JMP MOA 


4670 


0110 


6073 




JMP MCA 


4671 


0111 


0602 




LIT 2 


4672 


0112 


6053 




JHP JHPM6 


4673 


0113 


6703 


MDA# 


JMP QAINIT 


4674 


0114 


0356 




MESSO 


4675 


0115 


0671 




ANSWER 


4676 


0116 


6127 




JMP CHKSN 


4677 


0117 


0070 




SET I 10 


4700 


0120 


0671 




ANSWER 


4701 


0121 


0603 




LIP 3 


4702 


0122 


6507 




JMP HOB 


4703 


0123 


0467 




SKP 


4704 


0124 


6113 




JMP MDA 


4705 


0125 


0602 




LIT 2 


4706 


0126 


6052 




JMP JMPME 


4707 


0127 


04 40 


CHKSNi 


SNS 0 


4710 


0130 


6756 




JMP QARFSH 


4711 


0131 


0602 




LIT 2 


4712 


0132 


6044 




JMP START 


4713 


0133 


0045 


ANSBF. 


SET 5 


4714 


0134 


0000 




0 


4715 


0135 


1330 




LDH I 10 


4716 


0136 


0603 




LIP 3 


4717 


0137 


0040 




SET 0 


4720 


0140 


0005 




5 


4721 


0141 


6000 




JMP 0 


4722 


0142 


0640 






4722 


0143 


4040 






4722 


0144 


4040 






4722 


0145 


4040 






4722 


0146 


2022 






4722 


0147 


1707 






4722 


0150 


2201 






4722 






MESSl, 


TEXT IF 


4723 


0151 


1543 






4723 










4724 


0152 


4743 






4724 


0153 


0640 






4724 


0154 


4040 






4724 


0155 


4040 






4724 


0156 


0155 






4724 


0157 


0440 






4724 


0160 


2417 






4724 


0161 


4024 






4724 


0162 


0120 






4724 






r A 


-0 TO TAPE 


4725 


0163 


0543 







/ERROR 



/AN Nl 
/YES 

/A Y? 

/YES 

/N OR Y PLEASE 



PROGRAM 



4725 
4726 
4726 
4726 
4726 
4 72 6 
4726 
4726 
4726 
4726 
4726 
4726 
4726 
4726 
4726 
4727 
4730 
4730 
4730 
4730 
4730 
4730 
4730 
4730 
4730 
4730 
4730 
4731 
4731 
4732 
4732 
4733 
4733 
4733 
4733 
4733 
4733 
4733 
4733 
4733 
4733 
4734 
4734 
4734 
^734 
4734 
4734 
4734 
4734 
4734 
4734 
4734 
4735 
4735 
4736 
4736 
4736 
4736 
4736 
4736 
4736 
4736 
4736 



0164 
0165 
0166 
0167 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0200 



0201 
0202 
0203 
0204 
0205 
0206 
0207 
0210 
0211 
0212 



0215 
0216 
0217 
0220 
0221 
0222 
0223 
0224 
0225 

0226 
0227 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 



0241 

0242 
0243 
0244 
0245 
0246 
0247 
0250 
0251 



4743 
0640 
2431 
2005 
4003 
4024 
1740 
0317 
1624 
1116 
2505 
7461 
3400 



0623 
2^^101 
1604 
0122 
0440 
0530 
2005 
2211 
1505 
1624 



0213 7743 



0214 4743 



4743 
0640 
4040 
110 6 
4016 
1754 
4024 
3120 
0540 

4016 
4306 
4040 
4011 
0640 
3105 
2354 
2431 
2005 
4040 



0240 3143 



4743 

0640 
4040 
4040 
4022 
0520 
1431 
4074 
6134 



F TYPE C TO C0NTINU£<1\2 



MESSA, TEXT 2FSTANDAR0 EXPERIMENT? 



IF NO, TYPE N 



IF YES, TYPE Y 



4736 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4740 

4740 

4741 

4741 

4742 

4742 

4742 

4742 

4742 

4742 

4742 

4742 

4742 

4742 

4743 

4743 

4743 

4743 

4743 

4743 

4743 

4743 

4743 

4744 

4744 

4744 

4744 

4744 

4744 

4744 

4744 

4744 

4745 

474^ 

4746 

4746 

4747 

4747 

4747 

4747 

4747 

4747 

4747 

4747 

4747 

4747 

4747 

4750 

4750 

4750 

4750 

4750 



0252 0620 

0253 0122 

0254 0115 

0255 0524 

0256 0522 

0257 4014 

0260 1703 

0261 0124 

0262 1117 

0263 1677 

0264 4347 



0265 
0266 
0267 
0270 
0271 
0272 
0273 
0274 
0275 

0276 
0277 
0300 
0301 
0302 
0303 
0304 
0305 

0306 
0307 

0310 
0311 
0312 
0313 
0314 
0315 



0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0330 
0331 

0332 
0333 
0334 
0335 
0336 



4347 
4306 

4040 
4040 
2402 
1413 
4016 
1756 
4074 

6343 
0640 
4040 
4025 
1611 
2440 
4074 
6134 

0640 
4016 
0527 
4023 
2401 
2224 
4024 
0214 



0316 1377 

0317 4347 



4347 
4306 
4040 
4011 

0640 
1617 
5440 
2431 
2005 
4040 

1643 
0640 
4040 
1106 
4031 



MESSB, TEXT 2FPARAMETER LOCATION? 



TBLK NO, <3 



UNIT <i\2 



MESSC* TEXT U NEW START TBLK? 



IF NO, TYPE N 



4750 


0337 


0523 


4750 


0340 


5440 


4750 


0341 


2431 


4750 


0342 


2005 


4750 


0343 


4040 


47^0 






47 51 


0344 


3143 


47 51 






47 52 


0345 


4743 


4 7 52 


03 46 


0640 


4 7SP 


0347 


4040 


4 7 52 


0350 


4040 


4752 


0351 


4022 


4752 


0352 


0520 


47 


0353 


1431 




0354 


4074 


*7 / ^ C 


0355 


6134 


47 By 






4 7s:? 


0356 


0640 


4 7 'S*'? 


0357 


4040 


4 7 


0360 


4024 


4 753 


0361 


0214 


4 75 3 


0362 


1340 


4753 


0363 


1617 


4753 


0364 


5674 


4753 


0365 


6334 


4753 







IF YES, TYPE Y 



REPUY <1\2 



MESSO, TEXT IF TBUK N0,<3\2 



0000 ERRORS 



AAAENO 5571 
AC 0136 
ADDHI 7153 
ADDLO 7167 
ADDHED 7150 
AODR 7371 
ADPTR 1571 
ADRESS 7325 
ALDA 1145 
ALDONE 1465 
ALFAKE 1344 
ALl 1473 
AL10 1545 
AL14 1532 
AL15 1562 
AL2 1500 
AL3 1524 
AL5 1522 
AL5A 1570 
AL6 1527 
ANSBF 2133 
ANSBUF 4220 
ANSWER 4671 
A3 7365 
BEFORE 0073 
BETA3 0003 
BETA4 0004 
BETA5 0005 
8INIT 0130 
BUFFUL 0111 
BUFLIM 0140 
BUFTOP 0110 
BYCLK 6270 



B YCLKl 


6277 




6375 


8YCI K3 


6404 


cr 


7366 


U Wf n M w r\ 




U U A 




p p Y Q A W 
W U A O M V 


00 71 


r r y q F T 

U w' A O EL 1 


05i^ 6 


C CX 1 


0765 


C H A N 1 


053 7 


CH AN2 


0545 


CH AN3 


0553 


CHA R 


6611 


PHKSN 


2127 


rNKSNS 


422 7 


CHKTT Y 


0600 


r H R T F R 


6 754 


CHRT PL 


666 2 


CHIT YA 


0511 

it/ ^ X X 


CL AD 


1422 


CLKDL 
w h. rv u u> 


0131 


CLOCK 


1210 

X w X 


CLQCKG 


1744 


W Li, W W I \ 4> 


005 3 


CI 0CK2 


00 54 


CM TREC 


7 26 7 


CR 


7 36 7 


Cl 00 


015"^ 

K/ X O 


C 1000 


0120 


C110 


0507 


014 


0574 


C140 


0506 


C17 


0525 


C1777 


0046 


C2 


0363 


02X0 


1354 


C200 


0371 


C200X 


1340 


C2000 


0121 


02 12 


074 4 


03 


0067 


0300 


037 4 


C303 


0072 








7? 


04 X 


111? 

X X X £. 


04 00 


0065 


"t t ly 




060 


0571 


C640X 


1343 

X W T »J 


07 


0517 


07 X 


1 34P 

X w T C 


C7000 


1341 

X U T i 


C7717 

w ' / J. r 




07737 


PI "567 


07 76 3 


i?l 57 


07 76 7 




07774 


057 6 


07775 


0575 


DATA 


7351 


DELTA 


0107 


DIAL 


1716 


DiALA 


0751 



DISAB 1220 
DISCTR 0125 
DISPLY 1226 
DiSPl 0122 
DISP2 0123 
OISbET 0712 
DISSl 0724 
OISl 0103 
DIS2 0104 
DITA8 1734 
DONE 6305 
OONEl 6412 
DPY 0025 
EGA 0024 
ECHO 0660 
ENREG 0074 
ENSEN 1146 
ENXM 0022 
ENl 1157 
ERORX 6604 
ERROKX 7016 
EX 0263 
EXA 0503 
EXL 1423 
EXLSET 0521 
EXLSTO 1456 
EXLSYN 1425 
EXO 0505 
FIXUP 1740 
FSAM 0127 
FSTA 0373 
FSTSAM 1605 
GETKBD 5424 
GOCAT 1224 
GOGO 1345 
HOTAC 7201 
HOTACl 7103 
INCCX 0406 
INEXF 0403 
INJUMP 0357 
INMASK 0143 
INPTR 6655 
INSSW 0400 
INI 0320 
IN10 0560 
IN4 0413 
IN5 0437 
IS2DL 0375 
IXMASK 0075 
JMPBY 1715 
JMPME 4052 
JMPM6 4053 
JMPSTI 0421 
JMPSTO 1437 
JMPSYN 1406 
JUMPS! 0533 
KHAR 0657 
LI 0137 
LIMX 1076 
LINCI 0364 
LISTP 1322 
LOCX 4056 
LOOPl 6615 



L00P2 


6674 


L00P3 


6760 


LOTAC 


720^ 


LOTACl 


7105 


LRTN 


1761 


LT 


1104 


MA 


4064 


MAA 


2041 


MAAA 


2043 


MBA 


2061 


MBB 


6435 


MCA 


2073 


MCHK 


7040 


MDA 


2113 


MDB 


6507 


ME 


4151 


MEA 


4153 


MESSA 


2201 


MESS8 


2^52 


MESSC 


2306 


MESSD 


2356 


MESSE 


4566 


MESSF 


4636 


MESSl 


2142 


MESS2 


4232 


MESS3 


4262 


MESS4 


4331 


MESS5 


4421 


MESS6 


4527 


MFA 


4171 


MFB 


6531 


HiNUS3 


6264 


MINUS5 


6302 


MUM 


1075 


MONA 


0151 


MONITO 


0472 


MONJMP 


0476 


MONSW 


0145 


MONl 


0461 


M0N2 


0464 


M0N3 


0470 


MOTAC 


7202 


MOTACl 


7104 


MULRTN 


7252 


MULWD 


6647 


MULWOl 


6750 


MULW03 


7012 


Ml 


4057 


HIA 


2020 


MIAA 


2022 


MIX 


1242 


M10TAC 


7235 


M1000 


7075 


M12 


0747 


M14 


0047 


H2 


4071 


M2A 


4073 


M2B 


6020 


M260 


0746 


M261 


0740 


M272 


0741 


M3 


4105 


M3A 


4107 



M3B 6141 
M301 0742 
M303 0745 
M310 0743 
M311 0732 
M314 0027 
M320 0734 
M322 0733 
M323 0736 
M326 0737 
M330 0735 
M4 4121 
M4A 4123 
M4B 6231 
M5 4135 
MSA 4137 
M58 6320 
M50 7100 
M6 4203 
M6A 4205 
M7 0750 
M8RTN 7234 
M8TAC 7223 
NCHAN 0051 
NCHTP 6660 
NCH10 6133 
NCH20 6130 
NCH4 6136 
NOMX 6605 
NORMX 7017 
NORMXX 2035 
NfACl 7106 
NfAC2 7107 
NTAC3 7110 
NUM 6661 
NUMSAV 7074 
OCTAC 6656 
OKSAM 1600 
OKSAMA 0023 
OUCCX 0434 
OUEXL 0431 
OUHASK 0144 
OUSSW 0426 
PAUS 0677 
PDP8IN 1200 
PLIST 0064 
PTBNSV 6602 
PUTPtR 0124 
P3 7114 
QAB 4707 
QACA 4720 
QACHAR 5560 
QACKLF 5524 
QACNTR 5507 
QAD 4731 
QAE 4753 
QAEXIT 5540 
QAF 5421 
QAG 4765 
QAH 5017 
QAI 5034 
QAINIT 4703 
QAJ 5041 



QAK 


5210 


QAKR8 


6036 


QAL 


5100 


QALEGL 


5500 


QAM 


5004 


QAN 


5126 


QAO 


5134 


QAP 


5145 


QAQ 


5166 


QARFSH 


4756 


QAT 


5173 


QATLS 


6046 


QATPE 


5547 


QATSr 


6041 


QATY 


5441 


QAU 


5 411 


QAV 


5221 


QA^ 


5415 


QAX 


5327 


QAY 


5315 


QAzf 


5204 


QCTR 


0106 


Q!T 


1773 


QSET 


1064 


USETA 


0147 


QSTACK 


0154 


RET 


0141 


RTN 


6211 


SAMAN 


0365 


SAMEN 


1020 


SAMEND 


1000 


SAHFLG 


0115 


SAHINS 


0117 


SAMSTT 


0126 


SAMXIT 


1170 


SAMXTA 


0026 


SAMll 


1021 


SAMv5 


1010 


SAM5 


1036 


SAM7 


1013 


SBLX 


0447 


SCCX 


1462 


SCHK 


7050 


SEXL 


1454 


SJHP 


0132 


SJMS 


0134 


SMXT 


0045 


SSA 


0502 


SSO 


0504 


SSSET 


0513 


SSSW 


1444 


SSTRIN 


1614 



isSW 1412 
SSWSTO 1446 
SSWSYN 1414 
STAC 0101 
STACKE 0102 
STACKT 0100 
START 4044 
STBLK 7370 
STCHAN 0050 
STCHTP 6657 
STOA 0512 



STOPNM 0061 
STOPON 0060 
STOPP 1431 
STOPPP 1144 
STOPl 1451 
STOHFG 0116 
STTBLK 0052 
SU8T3 6427 
SO^Jt 6432 
SUMCHN 6112 
SYNA 0^10 
SYNCON 00^6 
SYNCl 1417 
SYNOLY 00S?5 
SYNGO 1400 
SYNNUM 00!37 
SYN15 0771 
TACMOV 7204 
TAPE 1243 
TAPEA 0070 
TAPEWl 6577 
TAPEW2 6600 
TAPEX 1221 
TAPEl 1311 
TAPE3 1305 
TBLK 0105 
TEMP 1337 
TEMPSV 7264 
THING 1040 
THINGA 0146 
THINGl 1057 
THING2 1051 
TIDLE 1113 
TIOLEA 0150 
TOTP 1122 
TOTPTS 0112 
TOTPl 1137 
TPH 7363 
TPHERE 7301 
TPLADD 7111 
TPLCLR 7253 
TPLGET 7172 
TPWRDl 6504 
TPWRD2 6505 
TYPAX 1077 
TYPGO 1313 
UCHK 7023 
UNITSV 6603 
UPLIM 6641 
UPLIMl 6724 
UPLIM3 7004 
WRITE 1270 
XIT 6653 
XR0 0010 
XRl 0011 
XR2 0012 
XR3 0013 
XTART 0200 
XI 0366 
X1000 0152 
X2 0367 
X4 0066 
^2 1774 



0000 
0001 

0002 
0003 
0004 

0005 

0006 

0007 
0010 

0011 

0012 
0013 

0014 
0015 
0016 

0017 

00 20 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0030 

0031 

003^ 

0033 

0034 

0033 

0036 

00 3 7 

0040 

0041 

0042 

0043 

0044 

0045 

00 46 

0047 

0050 

00t?i 

0052 
00!>3 
0054 
00!>5 

m5b 
0057 
0060 
0061 
0062 
td063 
0064 
0065 
0066 
0067 
0070 
0071 
0072 
0073 
0074 
0075 



0020 

0021 
0022 
0023 
0024 
002& 
0026 
0027 
0030 
0031 
0032 
0033 
0034 
003^ 
0036 
0037 
0040 
0041 
0042 
0043 
0044 
004t> 
0046 
0047 
00b0 
005)1 
00^2 
00^3 
0054 

4 b 6 

4 ,5 1 25 
4061 
4062 
4063 
4064 
4065 
4066 
4067 

0070 

0071 

0072 
0073 
0074 
007^ 

mn 

0103 
0101 
0102 
0103 
0104 
010i> 
0106 
0107 
0110 



1020 
0020 
0004 
1020 
1001 
1040 
0011 
1X20 
2000 
4012 
0640 
1020 
1001 
1120 
6107 
4013 
1031 
1072 
0233 
6040 
0643 
6072 
6107 
6123 
6137 
6171 
0600 
6463 
0002 

7200 
6046 
7200 
6041 
t>260 
1412 
6046 
7450 
7410 
5257 
6141 

0601 
6375 
0057 
0000 
7002 
0434 
0774 
63 77 
0070 
0774 
1330 
1420 
0300 
6017 
6074 
0057 
0000 



*20 



BEGIN, 



BEGINl, 



START, 



SEGMNT 2 

*20 
IDA I 
20 

Esr 

IDA I 

QAINIT-i 

STA 

11 

ADA I 
2000 
STC 12 
LDF 0 
IDA I 
QAINIT-1 
ADA I 
«AAAEND 
STC 13 
I 11 
I 12 
I 13 
• •3 
3 

Fl 
F3 

r4 

F5 

F6 
0 

RESET2 



HEAONG, 



HEADNG*! 
I XR2 



Fl, 

FIA, 



F3, 



IDA 
STA 
XSK 
JMP 

LOF 
JMP 
JMP 
JMP 
JMP 
JMP 
LIT 
JMP 
POP 
PHOOE 
C L A 
TLS 
CLA 
TSF 
JMP 
TAO 
TLS 
SNA 
SKP 

JMP HEADNG 

LINC 
LHOOE 
L IF 1 

JMP NXTCHN 

SET 17 

0 

JHP QAINIT 
FRAMEl 
ANSWER 
JMP CHKSNS 
SET I 10 
ANSWER 
LON I 10 
SHD I 
0300 
JHP 17 
JMP FIA 
SET 17 
0 



/CORE 
/MOVE 
/OF 

/QANDA 

/TO 

/SEGMNT 0 



/CORE MOVE DONE? 
/NO 

/YES 



/FLAG SET? 

/NO 

/GET CHAR. 

/PRINT CHAR, 

/EOM? 

/YES 

/NO 



/A C? 

/YES 

/NO 



0076 


0111 


7002 


F3Ai 


JMP QAINIT 


0077 


0112 


0530 




FRAM£3 


0100 


011^ 


1(^774 




ANSWER 


0101 


0114 


6377 




JMP CHKSNS 


0102 


0115 


0070 




SET I 10 


0103 


0116 


0774 




ANSWER 


0104 


0117 


0601 




LIF 1 


010b 


0120 


6020 




JMP F38 


0106 


0121 


6017 




JMP 17 


0107 


0122 


6111 




JMP F3A 


0110 


0123 


0057 


F4, 


SET 17 


0111 


0124 


0000 




0 


0112 


0125 


7002 


F4A, 


JMP QAINIT 


0113 


0126 


0603 




FRAME4 


0114 


0127 


0774 




ANSWER 


011t? 


0130 


6377 




JMP CHKSNS 


0116 


0131 


0070 




SET I 10 


0117 


0132 


0774 




ANSWER 


0120 


0133 


0601 




LIF 1 


0121 


0134 


6050 




JMP F4B 


0122 


0135 


6017 




JMP 17 


0123 


0136 


6X25 




JMP F4A 


0124 


0137 


0057 


F5, 


SET 17 


0125 


0140 


0000 




0 


0126 


0141 


6402 




JMP RESTR 


0127 


0142 


0074 




SET I 14 


0130 


0143 


0657 




FRAME5*13 


0131 


0144 


0073 




SET I 13 


0132 


0145 


0000 




0 


0133 


0146 


0072 




SET I 12 


0134 


0147 


0335 




QUE"-1 


0135 


0150 


0071 




SET 1 11 


0136 


0151 


7 7 75 




-2 


0137 


0152 


0067 




SET I 7 


0140 


0153 


0000 




0 


0141 


0154 


7002 


F5A, 


JMP QAINIT 


0142 


0155 


0644 




FRAME5 


0143 


0156 


0774 




ANSWER 


0144 


0157 


6377 




JMP CHKSNS 


0145 


0X60 


0070 




SET I 10 


0146 


0161 


0774 




ANSWER 


0147 


0162 


0601 




LIF 1 


0150 


0163 


6116 




JMP F5B 


0151 


0164 


0467 




SKP 


0152 


0165 


6154 




JMP F5A 


0153 


0166 


4430 




STC TEMPI 


0154 


0167 


6176 




JMP OPOSIT 


0155 


0170 


6154 




JMP F5A 


0156 


0171 


0057 


F6, 


SET 17 


0157 


0172 


0000 




0 


0160 


0173 


0600 




LIF 0 


0161 


0174 


6470 




JMP F6A 


0162 


0175 


6017 




JMP 17 


0163 


0176 


1000 


OPOSITi 


LOA 


0164 


0177 


0000 




0 


0165 


0200 


4272 




STC RTN2 


0166 


0201 


1000 




LDA 


0167 


0202 


0007 




7 


0170 


0203 


1460 




SAE I 


0171 


0204 


0020 




20 


0172 


0205 


0467 




SKP 


0173 


0206 


6154 




JMP F5A 


0174 


0207 


0227 




XSK I 7 



/PTR TO ADOR 
/OF Q.F, SPACES 
/CTR FOR 24 
/LOC OF Q.F, 
/PTR TO ADDR«1 
/OF Q.BUFF, 
/CTR FOR 
/TWO Q.F, 



/SAVE CH,N, 



/CHK TO SEE 
/THAT NO, OF 
/CH IS 16, 



0175 


0210 


1000 




IDA 




0176 


0211 


0430 




TEHPl 




0177 


0212 


1072 




STA 1 12 


/STA CHsNi IN Q 


0200 


0213 


0303 




ROR 3 


0201 


0214 


1560 




BCl I 




0202 


0215 


7770 




7770 




0 20 3 


0 216 


0470 




Age 1 


/TENS DIGIT»0? 


0204 


0217 


6245 




JMP UNOIGT 


/YES 


0205 


0220 


1120 




ADA \ 


/NOi CHANGE 


0206 


0221 


0060 




60 


/TO 6 BIT CHAR 


0207 


0222 


4357 




STC SVTENS 




0210 


0223 


1000 




IDA 


/CHK TO 


0211 


0224 


0013 




13 




0212 


0225 


1460 




SAE I 


/SEE 


0213 


0226 


0030 




30 


/IF 


0214 


0227 


0467 




SKP 


/STORAGE 


0215 


0230 


6234 




JMP ,4.4 


/ROOM 


0216 


0231 


1460 




SAE I 


/IN 


0217 


0232 


0027 




27 


/PRESENT 


0220 


0233 


0467 




SKP 


/Q»F. 


0221 


0234 


6240 




JMP ,*4 




0222 


0235 


1460 




SAE I 




0223 


0236 


0026 




26 




0224 


0237 


0467 




SKP 




0225 


0240 


6360 




JMP RESET 


/NO ROOM 


0226 


02 41 


0233 




XSK I 13 


0227 


0242 


1000 




LOA 




0230 


0243 


0357 




SVTENS 




0231 


0244 


1374 




STH I 14 


/STA TENS DIGIT 


0232 


02 4 > 


1000 


UNDIGT, 


IDA 


0233 


0246 


0013 




13 




0234 


0247 


1460 




SAE I 


/CHK 


0235 


02':?0 


0030 




30 


/HERE 


0236 


0251 


0467 




SKP 


/TOO 


0237 


02b2 


6256 




JMP ,♦4 


0240 


0253 


1460 




SAE I 




0241 


0254 


0027 




27 




0242 


025t> 


0467 




SKP 




0243 


0256 


6360 




JMP RESET 


/NO ROOM 


0244 


0257 


1012 




IDA 12 


0245 


0260 


1560 




BCL 1 




0246 


0261 


7770 




7770 


/GET UNIT DIGIT 


0247 


0262 


1120 




ADA I 


/CHANGE TO 


0250 


0263 


0060 




60 


/6 BIT CHAR 


0251 


0264 


0233 




XSK I 13 


0252 


0265 


1374 




STH I 14 


/STA UN I T DIGIT 


0233 


0266 


1020 




LDA I 


02^4 


0267 


0054 




54 




0255 


0270 


0233 




XSK I 13 




0256 


0271 


1374 




STH I 14 


/STA A COMMA 




0272 


0000 


RTN2. 


0 


0260 


0273 


1020 


EXIT, 


LOA ! 




0261 


0274 


Mil 




1777 




0262 


0275 


1072 




STA 1 12 




0263 


0276 


0072 




SET 1 12 




0264 


0277 


0335 




QUE^l 




0265 


0300 


0601 




LIT 1 




0266 


0301 


6256 




JMP UNITCK 


/DISPLAY FRAME6? 


0267 


0302 


0467 




SKP 


/YES 


0270 


0303 


0237 




XSK I 17 


/NO 


0271 


0304 


6017 




JMP 17 


0272 


030:> 


4432 


ALLi 


STC STCHl 




0273 


0306 


0601 




LIT 1 





0274 


0307 


6000 




MP 0 


0275 


0310 


1040 




STA 


0276 


0311 


0433 




NCHl 


0277 


0312 


2432 




ADO STCHl 


0300 


0313 


1120 




ADA I 


0301 


0314 


7776 




-1 


0302 


0315 


4431 




STC SUMl 


0303 


0316 


1000 


ALIRPT, 


IDA 


0304 


0317 


0432 




STCHl 


0305 


0320 


4 4 30 




STC TEMPI 


0306 


0321 


6176 




J MP OPOSIT 


0307 


0322 


1000 




LDA 


0310 


0 32 3 


0432 




STCHl 


0311 


0324 


0017 




COM 


0312 


0325 


2431 




ADD SUMl 


0313 


0326 


0451 




APO 


0314 


0327 


6154 




JMP F5A 


031!p 


0330 


1000 




LOA 


0316 


0331 


0432 




STCHl 


0317 


0332 


1120 




ADA I 


0320 


0333 


0001 




1 


0321 


0334 


4432 




STC STCHl 


0322 


0335 


6316 




JMP ALLRPT 


0323 


0336 


0000 


QUEi 


0 


0324 










032!? 


0357 


0000 


SVTENSi 


0 


0326 


0360 


0231 


RESETi 


XSK I 11 


0327 


0361 


0467 




SKP 


0330 


0362 


6141 




JMP F5*2 


0331 


0 36 3 


0074 




SET 1 14 


0332 


0364 


0674 




FRAME5*30 


0333 


0365 


0073 




SET I 13 


0334 


0366 


0000 




0 


033b 


0367 


6000 




JMP 0 


0336 


0370 


0045 


ANS8UF, 


SET 5 


0337 


0371 


0000 




0 


0340 


0372 


1330 




LDH I 10 


0341 


0373 


0601 




LIF 1 


0342 


0374 


0040 




SET 0 


0343 


0375 


00 05 




5 


0344 


0376 


6000 




JMP 0 


0345 


0377 


0440 


CHKSNSi 


SNS 0 


0346 


0400 


7055 




JMP QARFSH 


0347 


0401 


6045 




JMP START 


0350 


0402 


1000 


RESTR, 


IDA 


0351 


0403 


0000 




0 


0352 


0404 


4422 




STC RTNl 


0353 


0405 


0072 




SET I 12 


0354 


0406 


7775 




-2 


0355 


0407 


0074 




SET I 14 


0356 


0410 


0657 




FRAME5*13 


0357 


0411 


0073 




SET I 13 


0360 


0412 


774 7 




-30 


0361 


0413 


1020 


LP. 


LOA 1 


0362 


0414 


0040 




40 


0363 


0415 


1374 




STH I 14 


0364 


0416 


0233 




XSK I 13 


0365 


0417 


6413 




JMP LP" 


0366 


0420 


0232 




XSK I 12 


0367 


0421 


0467 




SKP 


0370 


0422 


0000 


RTNli 


0 


0371 


0423 


0234 




XSK I 14 


0372 


0424 


6411 




JMP LP-2 



/SAVE RTN JMP 



/CTR FOR 
/TWO Q,F, 
/PTR TO ADOR 
/OF Q.F.SPACES 
/CTR FOR 24 
/SPACES OF Q,F, 
/RESTORE Q.F, 
/WITH 40S 

/Q,F, RESTORED? 
/NO 

/BOTH Q,F, REST? 

/NO 

/YES 

/STRT OF NXT QF 



0373 


042t? 


1032 


0374 


0426 


0601 


0375 


0427 


6000 


0376 


0430 


0000 


0377 


0431 


0000 


0400 


0432 


0000 


0401 


0433 


0000 


0402 


0434 


0640 


0402 


0435 


4040 


0402 


0436 


4040 


0402 


0437 


4040 


0402 


0440 


0104 


0402 


0441 


0317 


0402 






0403 


0442 


1643 


0403 






0404 


0443 


4743 


0404 


0444 


1040 


0404 


0445 


0401 


0404 


0446 


2401 


0404 


0447 


4006 


0404 


0450 


2217 


0404 


0451 


1540 


0404 


0452 


2410 


0404 


0453 


0540 


0404 


0454 


0401 


0404 


0455 


2401 


0404 


0456 


4024 


0404 


0457 


0120 


0404 


0460 


0540 


0404 


0461 


1123 


0404 


0462 


4024 


0404 


0463 


2201 


0404 


0464 


1623 


0404 


0465 


0605 


0404 


0466 


2222 


0404 






0405 


0467 


0504 


0405 


0470 


4310 


0405 


0471 


4024 


0405 


0472 


1740 


0405 


0473 


0140 


0405 


0474 


1605 


0405 


0475 


2740 


0405 


0476 


2401 


0405 


0477 


2005 


0405 


0500 


4011 


0405 


0501 


1640 


0405 


0502 


0317 


0405 


0503 


1624 


0405 


0504 


1107 


0405 


0505 


2517 


0405 


0506 


2523 


0405 


0507 


4002 


0405 


0510 


i4l7 


0405 


0511 


0313 


0405 






0406 


0512 


2343 


0406 






0407 


0513 


4743 


0407 


0514 


0624 


0407 


0515 


3120 


0407 


0516 


0540 



QUEUE* 



TEMPI, 

SUHli 

STCHl, 



LOA I 12 

LIF 1 

JMP 0 

0 

0 

0 

0 



FRAMEl, TEXT if 



ADCON 



H DATA FROM THE DATA TAPE IS TRANSFERRED 



H TO A NEW TAPE IN CONTIGUOUS BLOCKS 



0407 


0517 


0340 


0407 


0520 


2417 


0407 


0521 


4003 


0407 


0522 


1716 


0407 


0 52 3 


2411 


0407 


0524 


1625 


0407 


0525 


0540 


0407 


0526 


7461 


0407 


0527 


3400 


0407 






0410 


0530 


0640 


0410 


0531 


4 014 


0410 


0532 


1703 


0410 


0533 


0124 


0410 


0534 


1117 


0410 


0535 


1640 


0410 


0536 


1706 


0410 


0537 


4004 


0410 


0540 


0124 


0410 






0411 


0541 


0143 


0411 


0542 


0640 


0411 


0543 


2417 


0411 


0544 


40 02 


0411 


0545 


0540 


0411 


0546 


2422 


0411 


0547 


0116 


0411 


0550 


2306 


0411 


0551 


0522 


0411 


0552 


2205 


0411 






0412 


0553 


0477 


0412 






0413 


0554 


4347 


0413 






0414 


0555 


4347 


0414 


0556 


4306 


0414 


0557 


4040 


0414 


0560 


2324 


0414 


0561 


0122 


0414 


0562 


2411 


0414 


0563 


1607 


0414 


0564 


4024 


0414 


0565 


0214 


0414 


0566 


1340 


0414 






0415 


0567 


7463 


0415 


0570 


4306 


0415 


0571 


4040 


0415 


0572 


4040 


0415 


0573 


4040 


0415 


0574 


4,040 


0415 


0575 


4040 


0415 


0576 


4025 


0415 


0577 


1611 


0415 


0600 


2440 


0415 


0601 


7461 


0415 


0602 


3400 


0415 






0416 


0603 


0640 


0416 


0604 


2422 


0416 


0605 


0116 


0416 


0606 


2306 



FTYPE C TO CONTINUE <1\Z 



FRAME3, TEXT ZF LOCATION OF DATA 



F TO BE TRANSFERRED? 



F STARTING TBUK <3 



UNIT <1\Z 



0416 

0416 

0416 

0416 

0416 

0416 

0417 

0417 

0420 

0420 

0421 

0421 

0421 

0421 

0421 

0421 

0421 

0421 

0421 

0421 

0421 

0422 

0422 

0422 

0422 

0422 

0422 

0422 

0422 

0422 

0422 

0422 

0422 

0422 

0423 

0423 

0423 

0423 

0423 

0423 

0423 

0423 

0423 

0423 

0424 

0424 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0426 

0426 

0426 



0607 
0610 



0522 
4014 



0611 1703 

0612 0124 

0613 1117 

0614 1677 

0615 4347 

0616 4347 

0617 4306 
0620 4040 



0621 


2324 


0622 


0122 


CO 


c 11 


0624 


1607 


0625 


4024 


0626 


0214 


0627 


1340 


0630 


7463 


0631 


4306 


0632 


4040 


0633 


4040 


0634 


4040 


0635 


4040 


0636 


4040 


0637 


4025 


0640 


1611 


0641 


2440 


0642 


7461 


0643 


3400 


0644 


0640 


0645 


4003 


0646 


2205 


0647 


0124 


0650 


0540 


0651 


0611 


0652 


1405 


0653 


2340 


0654 


0617 



rRAME4, TEXT 2F TRANSFER LOCATION? 



0655 2243 



0656 
0657 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0670 
0671 
0672 

0673 

0674 
0675 



4743 
1040 
4040 
4040 
4040 
4040 
4040 
4040 
4040 
4040 
4040 
4040 
4040 

4043 
1040 
4040 



F STARTING TBLK <3 



UNIT <1\2 



FRAME5, TEXT IT CREATE FILES FOR 



0426 


0676 


4040 


0426 


0677 


4040 


0426 


0700 


4040 


0426 


0701 


4040 


0426 


0702 


4040 


0426 


0703 


4040 


0426 


0704 


4040 


0426 


0705 


4040 


0426 


0706 


4040 


0426 


0707 


4040 


0426 






0427 


0710 


4043 


0 427 






0430 


0711 


4743 


0430 


0712 


0640 


0430 


0713 


4040 


0430 


0714 


0310 


0430 


0715 


0116 


0430 


0716 


1605 


0430 


0.717 


1440 


0430 


0720 


1625 


0430 


0721 


1502 


0430 


0722 


0522 


0430 


07 2 3 


4074 


0430 






043X 


0724 


62 43 


0431 






0432 


07 25 


4743 


0432 


0726 


1040 


0432 


0727 


4040 


0432 


0730 


4024 


0432 


0731 


3120 


0432 


0732 


0540 


0432 


0733 


0140 


0432 


0734 


0617 


0432 


0735 


2240 


0432 


0736 


0114 


0432 


0737 


1440 


0432 


0740 


0310 


0432 


0741 


011,6 


0432 


0742 


1605 


0432 


0743 


1423 


0432 


0744 


4023 


0432 


0745 


0115 


0432 


0746 


2014 


0432 






0433 


0747 


0504 


0433 






0434 


0750 


4347 


0434 


0751 


4310 


0434 


0752 


4040 


0434 


0753 


4040 


0434 


0754 


2431 


0434 


0755 


2005 


0434 


0756 




0434 


0757 


4027 


0434 


0760 


1005 


0434 


0761 


1640 


0434 


0762 


0611 


0434 


0763 


1611 


0434 


0764 


2310 


0434 


0765 


0504 


0434 


0766 


4023 



CHANNEL NUMBER <2 



TYPE A FOB ALL CHANNELS SAMPLED 



0434 

0434 

0434 

0434 

0434 

0434 

0435 

0436 

0437 

1414 

1415 

1416 

1417 

1420 

1421 

1422 

1423 

1424 

1425 

1^.26 

1427 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1500 

1501 



0767 
0770 
0771 



0514 
0503 
2411 



0772 1716 

0773 2334 



0774 0000 ANSWER 



TYPE C WHEN FINISHED SEL£CT!0NS\2 



0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0040 
0041 
0042 
0043 
00 44 
0045 
0046 
0047 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0100 
0101 
0102 
0103 



0055 
0000 
1020 
0010 
1040 
0227 
0017 
4221 
6163 
0467 
6305 
1000 
0133 
6156 
4134 
6163 
0467 
6305 
1000 
0133 
6156 
4135 
6312 
6306 
0055 
0000 
6163 
0467 
6305 
1000 
0133 
6156 
4136 
6163 
0467 
6305 
1000 
0133 
6156 
4137 
4155 
1000 
0137 
1440 
0135 
6306 
1000 
0146 
0017 
2136 
0451 
0467 



0 

*t *5 

NOLIST 
SEGMNT 1 

*20 

r3B, SET 15 

0 

IDA I 

10 

STA 

MULWD 

COM 

STC UPLIM 
JMP CHAR 
SKP 

JMP ERRORX 

IDA 
OCTAC 
JMP 2ER0 
STC ST8LKD 
JMP CHAR 
SKP 

JMP ERRORX 
LOA 
OCTAC 
JMP 2ER0 
STC UNITD 
JMP RDHD 
JMP NORMX 
f'^B. SET 15 
0 

JMP CHAR 
SKP 

JMP ERRORX 
LOA 
OCTAC 
JMP 2ER0 
STC STBLKN 
JMP CHAR 
SKP 

JMP ERRORX 

IDA 
OCTAC 
JMP 2ER0 

STC UNITN 
STC TLAG 
IDA 
UNITN 
SAE 
UNITD 
JMP NORMX 
IDA 

UASTBN 
COM 

ADD STBLKN 

APO 

SKP 



/DATA TBLK NO. 



/DATA UNIT NO, 



/NEW TBLK NO, 



/NEW UNIT NO, 
/SET C(FLAG)«0 

/NEW UNIT NO 

/UNITNsUNITD? 

/NO 

/YES 

/IF UNITNsUNITD 
/ THEN 

/$tblkn>lastbn 

/ OR 

/stblkn<stblko, 



1502 

1503 

1504 

1505 

1506 

1507 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1600 



0104 
0105 
0106 
0107 
0110 
0111 
011^ 
0113 
0114 
0115 
0x16 
0117 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0160 
0161 
0162 

0163 
0164 
0165 



6306 
2146 

0017 
2134 
0451 

6305 
1020 
77 67 
4155 
6306 
0055 
0000 
6163 
0467 
6305 
1000 
0133 
6156 
6235 
1000 
0133 
6156 
6306 
0000 
0000 
0000 
0000 
0000 
0000 
0003 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
1460 
7777 
0467 
0011 
6000 



F58i 



OCTACi 
STBLKDi 
UNITO, 
ST8LKN, 
UNITN, 
NUHi 
MBLK , 
STCHANi 
NCHANi 
QSAVE. 
QSAVE2i 
LASTBNi 
NUMGRP^ 
TEMP2i 
TEMP5, 
DELTA, 
P0WER2 I 
GETCHN. 
FLAG I 
ZERO, 



JMP NORMX 
ADO LASTBN 
COM 

ADD STBLKD 
APO 

JMP ERRORX 
LOA I 
-10 

SIC FLAG 
JMP NORMX 
SET 15 

0 

JMP CHAR 
SKP 

JMP ERRORX 
LOA 
OCTAC 
JMP iERO 
JMP CHKCH 
LOA 
OCTAC 
JMP ZERO 
JMP NORMX 
0 



0011 

0166 4133 

0167 0602 

0170 6370 

0171 1420 



0056 CHARi 
0000 



LOOPli 



0172 
0173 
0174 
0175 



7400 
6016 

1420 
3400 



0176 6016 

0177 1420 
0200 
0201 



6167 



0 
0 
0 
0 
0 
0 



SAE 1 

7777 

SKP 

CLR 
JMP 0 

SET 16 
0 

CLR 

STC OCTAC 
LIF 2 

JMP ANSBUF 

SHD I 

7400 
JMP 16 
SHD 1 
3400 
JMP 16 
SHD I 
0 

JMP LOOPl 



/ OTHERWISE 
/ERR OR 



/SET A FLAG 
/FOR LATER ONi 



/E.O.ANS.F,? 

/EOM? 

/A BLANK? 



r 



1601 

1602 

1603 

1604 

1605 

1606 

1607 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1650 

1651 

1652 

16t>3 

1654 

1655 

1656 

1657 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 



0202 
0203 
0204 
020b 
0206 
0207 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 
0222 
022^ 
0224 
022b 
0226 
0227 
0230 
0231 
0232 
02 33 
0234 
0235 
0236 
0237 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0270 
0271 
0272 
02 73 
0274 
0275 
0276 
0277 
0300 



1420 
0100 
6275 
1420 
0300 
6273 
1120 
7717 
1040 
0140 
1120 
0001 
0451 
6233 
1120 
0000 
0471 
62 33 
1000 
0133 
1260 
0000 
2140 
4133 
6167 
02 36 
6016 
0046 
0000 
4144 
2142 
0017 
1120 
0001 
2144 
0451 
6305 
4145 
2143 
0017 
2145 
0471 
6305 
6006 
0046 
0000 
1000 
0137 
1460 
0000 
0467 
6267 
0226 
0602 



CHKCH, 



SHO I 
0100 

JMP RAIL 
SHO I 

0300 

JMP REXIT 

ADA I 

»60 

STA 

NUM 

ADA 1 

1 

APO 

JMP KIT 



UPLIM* 0 



ADA I 



MULWOi 0 



APO I 
JMP X!T 
IDA 
OCTAC 

MUL I 



UNITCK< 



ADD NUM 
SIC OCTAC 
JMP LOOP! 
XSK I 16 
JMP 16 
SET 6 
0 

STC QSAVE 

ADD STCHAN 

COM 

ADA I 

1 

ADD QSAVE 

APO 

JMP ERROPX 
STC QSAVE2 
ADD NCNAN 
COM 

ADO QSAVE2 

APO I 

JMP ERRORX 
JMP 6 
SET 6 

0 

LOA 
UNITN 
SAE I 
0 

SKP 

JMP JMPr6 



0006 
6000 
0602 
6273 

1000 
0142 
0602 
6305 



JMPr6, 

REXIT. 
RAIL, 



XSK 
LIF 2 
SET 0 
6 

JMP 0 
LIF 2 
JMP EXIT 
IDA 

STCHAN 
LIF 2 
JMP ALL 



/AN A? 

n c? 

/S DIGIT? 



/NUM IS NONNEG? 
/SHOULD BE 

/IS NUM LESS 
/THAN 10 OR 12? 
/SHOULD BE 

/MUL BY 10 OR 12 
/FOR OCT OR DEC 
/CONVERSION 



/SAVE CH.N, 



/CH NO IS 
/>kSTCHAN? 

/NO 

/YES 



/CH NO IS 
/<STCH*NCHAN? 
/NO 

/YES 



/UNITN w 07 

/NO 

/YES 



1700 

1701 

1702 

1703 

1704 

1705 

1706 

17 07 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1770 

1771 

1772 

1773 

1774 

1775 

1776 



0301 
03 02 
0303 
0304 
0305 
0306 
0307 
0310 
0311 



1000 
0143 
0602 
6310 
0235 
0602 
0040 
0015 
6000 



0312 

0313 

0314 

0315 

0316 

0317 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0340 

0341 

0342 

0343 

0344 

034^ 

0346 

0347 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0370 

0371 

0372 

0373 

0374 



0053 
0000 
6320 
0040 
0013 
6000 
1000 
0000 
4374 
1000 
0135 
0341 
0001 
1000 
0135 
4150 
1500 
0150 
6340 
1020 
0700 
6344 
1020 
0700 
1120 
0010 
4353 
1000 
0141 
0303 
1100 
0134 
4354 
0000 
0000 
1000 
1400 
4142 
3401 
414 3 
3414 
4146 
2134 
0017 
2146 
0342 
1120 
0001 
0017 
4147 
0000 



IDA 

NCHAN 

LIT 2 

JMP ALL*3 
£RRORX# XSK I 15 
NORMXi LIF 2 

SET 0 

15 

JHP 0 

/FROM DATA TAPE READ 

/ 

RDHOi SET 13 
0 

JMP RDHEAD 

SET 0 

13 

JMP 0 
RDHEADi IDA 
0 

STC RTN3 
LOA 
UNITD 
SCR 1 

AXO 
IDA 
UNITO 
STC TEMP2 
SRO 
TEMP2 
JMP BITl 
BIT0I LOA 1 
RDC 

JMP STR 
BITl, LOA I 
ROC 
ADA 1 
10 

STRi STC TPWROl 
LOA 

M8LK 

ROR 3 
ADA 

ST8LKD 
STC TPWRD2 



STCHAN AND NCHAN 



TPWROl) 
TPWR02, 



LOA 
1400 

STC STCHAN 
ADO 1401 
STC NCHAN 
ADO 1414 
STC UASTBN 
ADD STBLKO 
COM 

ADD LASTBN 
2 
I 



SCR 

ADA 



/SET XQB 



/BIT 11«0? 

/NO 

/YES 



/SET BIT 8 



/DETERMINE 
/NUM OF 
/GROUPS OF 
/4 BLKS ORIG 
/TRANSFEREO 



COM 

STC NUMGRP 



RTN3i 
/ 



1777 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2070 

2071 

2072 

2073 

2074 

2075 



037b 
0376 
0377 

2400 
2401 



0042 
0147 
0002 

4420 

6141 



0402 
0403 
0404 

0405 
0406 
0407 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0440 
0441 

0442 

0443 

0444 

0445 

0446 

0447 
. 0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0460 

0461 

0462 

0463 

0464 

0465 
0466 



0077 
0000 
0602 
6425 
1460 
1777 
0467 
7273 
1040 
0154 
6525 
2552 
4555 
2553 
4556 
1000 
0136 
6525 
2551 
4563 
2552 
4564 
2553 
4565 

1000 

0134 
1120 
0001 
4472 
0467 
6141 
0222 
0467 
6601 
0643 
1000 
0135 
0341 
0001 
1000 
0135 
4150 
1500 
0150 
6517 
6514 
4474 
0066 
7773 
1000 
0524 
4467 
1020 



/PART 2 OF PROGRAM 

/GET CHANNEL TO BE TRANS, FROM THE Q, 

NXTCHN, SET 2 
NUMGRP 
POP 
PHOOE 

JMS I eUFTRR /SETUP 1 BIK BUF 

L. I NC 
LMODE 
SET I 17 



RD4BLK 



LIT 2 
JMP QUEUE 
SAE I 
1777 

SKP 

JMP TRANON 
STA 

GETCHN 
JMP BUFSUB 
ADO TB 
STC CI 
ADD TC 
STC 02 
IDA 

STBLKN 
JMP BUFSUB 
ADD TA 
STC TBI 
ADD TB 



TB2 

TC 

TB3 



TYPOUT*! 
3 



STORE 



STC 
ADO 
STC 
IDA 

ST8LK0 
ADA I 
1 

STC TBIK 

SKP 
6141 
XSK I 2 
SKP 
JMP 
LDF 
IDA 
UNITD 
SCR 1 
AXO 
IDA 
UNITD 
STC TEMP2 
SRO 
TEMP2 
JMP BITN 
JMP BITY 
* STC TAPEWl 
SET I 6 
-4 
LDA 
MBLK4 
STC M8LCK 
LDA I 



/CTR FOR NO I 
/OF WRTAPES 

/GET A 
/CHAN NO, 
/ANOTHER CHAN? 
/YES 

/FINISHED 



/SAVE CHAN 
/NO, AND 
/ST8LK OF 
/TRANSFER 
/TAPE 

/WHICH WILL 

/BE 

/TYPED 
/OUT 
/LATER 
/ON 



/YES 

/FIRST BLK 
/ON DATA TAPE 
/TO BE 
/TRANSFERED 

/LINC 

/THIS CH DONE? 

/NO 

/YES 

/DATA TAPE 
/UNIT NO 

/SET XOB 



/BIT 11»0? 

/NO 

/YES 

/CTR FOR MBLKS 
/4,5,6,7 



2076 


0467 


0000 


MBlCKi 


0 


2077 


0470 


0303 




ROR 3 


2100 


0471 


1120 




ADA I 


2101 


0472 


0000 


TBLK, 


0 


2102 


0473 


4475 




SIC TAPEW2 


2103 


0474 


0000 


TAPEWl, 


0 


2104 


0475 


0000 


TAPEW2# 


0 


2105 


0476 


1000 




IDA 


2106 


0477 


0472 




TBIK 


2107 


0500 


1120 




ADA I 


2110 


0501 


0001 




1 


2111 


0502 


4472 




SIC TBLK 


2112 


0503 


0226 




XSK I 6 


2113 


0504 


0467 




SKP 


2114 


0505 


6633 




JMP TRANSF 


2115 


0506 


1000 




LDA 


2116 


0507 


0467 




M8LCK 


2117 


0510 


1120 




ADA I 


2120 


0511 


0001 




1 


2121 


0512 


4467 




STC M8LCK 


2122 


0513 


6466 




JMP MBLCK«1 


2123 


0514 


1020 


BUY, 


LDA I 


2124 


0515 


0700 




ROC 


2125 


0516 


6460 




JMP STORE 


2126 


0517 


1020 


8ITN, 


LDA I 


2127 


0520 


0700 




RDC 


2130 


0521 


1120 




ADA I 


2131 


0522 


0010 




10 


2132 


0523 


6460 




JMP STORE 


2133 


0524 


0004 


MBLK4, 


4 


2134 


0525 


1040 


BUFSUBi 


STA 


2135 


0526 


0151 




TEMP5 


2136 


0527 


0346 




SCR 6 


2137 


0530 


1120 




ADA I 


2140 


0531 


0260 




260 


2141 


0532 


4551 




STC TA 


2142 


0533 


2151 




ADO TEMPS 


2143 


0534 


0343 




SCR 3 


2144 


0535 


1560 




BCL I 


2145 


0536 


7770 




7770 


2146 


0537 


1120 




ADA ! 


2147 


0540 


0260 




260 


2150 


0541 


4552 




STC TB 


2151 


0542 


2151 




ADD TEMP5 


2152 


0543 


1560 




BCL I 


2153 


0544 


7770 




7770 


2154 


0545 


1120 




ADA I 


2155 


0546 


0260 




260 


2156 


0547 


4553 




STC TC 


2157 


0550 


60 00 




JMP 0 


2160 


0551 


0000 


TA/. 


0 


2161 


0552 


0000 


T8, 


0 


2162 


0553 


0000 


TC. 


0 


2163 


0554 


0240 


8UFTTY, 


240 


2164 


0555 


0000 


Clf 


0 


2165 


0556 


0000 


C2» 


0 


2166 


0557 


0240 




240 


2167 


0560 


0240 




240 


2170 


0561 


0240 




240 


2171 


0562 


0240 




240 


2172 


0563 


0000 


TBI, 


0 


2173 


0564 


0000 


TB2, 


0 


2174 


0565 


0000 


TB3i 


0 



/INCREMENT 

/TBLK 
/NUM 



/4 BLKS READ/ 

/NO 

/YES 



/SAVE NUM TO 
/BE TYPED 
/GET HUNDREDS 
/DIGIT 



/GET TENS DIGIT 



/GET UNITS DIGT 



/SPACE 



/SPACE 
/ " 
/ " 
/ " 



2175 
2176 
2177 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2230 

2231 

2232 

2233 

22 34 

2235 

2236 

2237 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2270 

2271 

2272 

2273 



0566 
0567 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0610 
0611 
0612 

2613 
2614 
2615 
2616 
2617 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2630 
2631 



0240 
0240 
0240 



0633 
0634 
0635 

0636 
0637 
0640 
0641 
0642 
0643 
0644 
064t? 
0646 
0647 
0650 
0651 
0652 
0653 
0654 
0655 
0656 



0000 
0000 
0215 
0212 
0000 
0467 
6141 
1000 
0017 
6525 
2551 
4571 
2552 
4572 
2553 
4573 
0002 

1230 
3013 
7200 
6046 
7200 
6041 
5220 
1413 
6046 
7450 
7410 
5217 
7410 
2553 
6141 



0632 6375 



0064 

mm 
1000 

0143 
4150 
1500 
0150 
6645 
0224 
6640 
1000 
0004 
1040 
0153 
1120 
0340 
4656 
1020 
2000 
0000 



NBl, 

NB2, 
N83, 



240 

240 
240 
0 



215 
212 
0 

SK P 

TYPOUT, 6141 



AGAIN, 



X5, 



LDA 

17 

JMP BUFSUB 

ADO TA 

STC NBl 

ADD TB 

STC NB2 

ADD TC 

STC NB3 

PDF 

PMOOE 

TAD X5 

DCA XR3 

CLA 

TLB 

CLA 

TSF 

JMP ,«1 
TAD I XR3 

TLS 

SNA 
SKP 

JHP AGAIN 

SKP 

BUFTTY-1 

LINC 

LMODE 

JMP NXTCHN 



/OR 
/LF 

/LING 

/GET NO, OF 
/BLKS TRANSFD 



/TYPE 
/OUT 
/CHAN & 
/STBLK « 
/NB 



/TRANSFER DATA FROM 
/TO MBLK 3(SEG 1)AND 
/ 



IK BUFFER(SEG 3) 
WRITE ON TAPE, 



POWERi 



NSCR, 



SET I 4 

0 


/CTR FOR 
/POWER OF 


LOA 


/OF NCHAN 


NCHAN 




STC TEMP2 




SRO 




TEMP2 


/BIT 11=0? 


JHP POWER 


/NO 


XSK I 4 


/YES 


JMP , «4 




LDA 




4 


/GET POWER 


STA 




P0WER2 




ADA I 


/ADD SCR 


340 




STC NSCR 




LDA I 


/NUM WHICH 


2000 

0 


/ROT GIVES 



2274 


0657 


4152 


2273 


0660 


0002 


2276 






2277 


2661 


5662 


2300 


2662 


3000 


2301 






2302 


3000 


1716 


2303 


3001 


1^:^04 


2304 


3002 


3203 


2305 


3003 


0000 


2306 


3004 


5605 


2307 


3005 


3012 


2310 


3006 


3017 


2311 


3007 


3022 


2312 


3010 


3025 


2313 


3011 


3030 


2314 


3012 


1300 


2315 


3013 


3312 


2316 


3014 


1307 


2317 


301^ 


3011 


2320 


3016 


5246 


2321 


3017 


1301 


2322 


3020 


3312 


2323 


3021 


5232 


2324 


3022 


1303 


2325 


3023 


3312 


2326 


3024 


5232 


2327 


3025 


1304 


2330 


3026 


3312 


2331 


3027 


5232 


2332 


3030 


1305 


2333 


3031 


3312 


2334 


3032 


172 2 


2335 


3033 


7041 


2336 


3034 


1720 


2337 


3035 


1306 


2340 


3036 


3313 


2341 


3037 


1307 


2342 


3040 


2313 


2343 


3041 


7410 


2344 


3042 


5245 


2345 


3043 


1715 


2346 


3044 


5240 


2347 


3045 


3011 


2350 


3046 


1411 


2351 


30 4 7 


1277 


2352 


3050 


7450 


2353 


3051 


5271 


2354 


3052 


1311 


2355 


3053 


3410 


2356 


3054 


2314 


2357 


3055 


7 410 


2360 


3056 


4421 


2361 


3057 


2312 


2362 


3060 


5246 


2363 


3061 


5662 


2364 


3062 


2440 


2365 


3063 


0000 


2366 


3064 


1310 


2367 


3065 


3010 


2370 


3066 


1303 


2371 


3067 


3314 


2372 


3070 


5663 



STC DELTA 

POP 
PMODE 
JMP I , +1 
3000 

^3 00 0 

TAD I P0WR2 
TAD JMPC 
OCA ,+1 
0 

JMPC, JMP I •+1 
CHANl 
CHAN2 
CHAN4 
CHAN10 
CHAN20 



CHANl, 


TAD 


M2000 




DCA 


CTR 




TAD 


A6000 




DCA 


XRl 




JMP 


NXTl 


CHAN2# 


TAD 


M1000 




DCA 


CTR 




JMP 


CONT 


CHAN4, 


TAD 


M400 




DCA 


CTR 




JMP 


CONT 


CHAN10, 


TAD 


M200 




DCA 


CTR 




JMP 


CONT 


CHAN20, 


TAD 


M100 




DCA 


CTR 


CONT, 


TAD 


I GETCH 




CIA 






TAD 


I STCH 




TAD 


Ml 




DCA 


DELCTR 




TAD 


A6000 




ISE 


DELCTR 




SKP 






JMP 


NXTl-1 




TAD 


I OELTAA 




JMP 


.«4 




DCA 


XRl 


NXTl, 


TAD 


I XRl 




TAD 


M4000 




SNA 






JMP 


DONE 




TAD 


A4000 




DCA 


I XR 




ISZ 


CTR400 




SKP 






JMS 


I WRTPE 




IS2 


CTR 




JMP 


NXTl 




JMP 


I R04BK 


RD4BK, 


RD4BLK 


BUFTR, 


0 






TAD 


A3400 




DCA 


XR" 




TAD 


M400 




DCA 


CTR400 




JMP 


I BUFTR 



/2000 LOC CTR 
/IST LOC^l OFIK 



/1000 LOC CTR 



/400 LOC CTR 



/200 LOC CTR 



/100 LOC CTR 

/CH NO, 
/SET UP 
/CTR TO 
/LOCATE PTR 
/AT START 
/OF TRANSFER 
/LOCATION 



/END OF DATA 
/FOR THIS CH? 

/YES 
/NO 

/BLK FULL? 

/NO 

/YES 

/FIN BUFF? 
/NO 

/RDC 4 MORE 8LKS 



/IST LOC«.l TR BU 

/CTR FRO 400 LOC 
/OF TRANS 8UF 



2373 
2374 
2375 

2376 

^377 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2430 

2431 

24 32 

2433 

2434 

2435 

2436 

2437 

2440 

2441 

2442 

2443 

2' 44 

2445 

2446 

2447 

2 450 

2 tbi 

2452 

2453 

24i , 

2455 

2456 

2457 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2470 

2471 



3071 

3072 

3073 

3074 

3075 

3076 

3077 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3120 

3121 

3122 

3123 



7130 

3410 

2314 

5271 

4421 

5723 

4000 

6000 

7000 

7001 

7400 

7600 

7700 

7777 

5777 

3377 

4000 

0000 

0000 

0000 

2152 

2153 

2375 

2142 

2144 

2154 

2600 



DONE. 



3200 0000 

3201 6141 



12 02 
1203 
1204 
1205 

1206 

1207 

1210 

1211 

1212 

1213 

1214 

121^ 

1216 

1217 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1230 

1231 

1232 

1233 

1234 

1 23 5 

1236 

1237 

124? 

.241 



1000 
0136 
3102 

0471 

7275 

1000 

0137 

144 0 

0133 

7226 

1000 

0155 

0471 

7226 

1000 

0136 

0017 

2134 

0451 

7317 

0237 



i k 

0137 
0341 
0001 
1000 
0137 
4150 
1500 
0150 
7266 
7263 



H4000, 
H2000, 
M1000, 
M777 , 
M400, 
M200» 
M100, 
Ml, 

A6000, 
A3400, 
A4000, 
CTR, 

DELCTR, 
CTR400, 
DELTAA. 
P0WR2, 
NXTCH, 
STCH, 
QSAV. 
GETCH, 
TVP, 

WRTAPE, 



BYPASS 



STL RAR 
OCA I XR 
IS2 CTR400 
JMP DONE 
JMS I WRTPE 
JMP I TYP 
^4000 
^2000 
^1000 

^777 
400 
=^200 
»100 
si 

5777 
3377 

4000 
0 

0 

0 

DELTA 

P0WER2 

NXTCHN 

STCHAN 

QSAVE 

GETCHN 

TYPOUT 

*3200 

0 

LIHC 
LMODE 

LDA 

STBLKN 
ADD H777 
APO I 
JMP ENDTP 
LDA 
UNITN 
SAE 
UNITD 

JMP 8YPASS 

LDA 

FLAG 

APO I 

JMP BYPASS 

LDA 

STBLKN 

COM 

ADO STBLKD 

APO 

JHP OVERTP 

XSK I 17 

LDA 

UNITN 

SCR 1 

AXO 

LDA 

UNITN 

STC TEMP2 

SRO 

TEMP2 

JMP BITNO 

JMP BITYES 



/BLK TO BE 
/WRITTEN ON 

/<s 777? 

/NO 

/YES 

/OF UNITO=UNITN 
/THEN 

/BLK TO BE 
/WRITTEN ON 
/< STBLKD 

/STBLKN < STBLKD 

/NO 

/YES 



/BLK IS OK? 

/NO 

/YES 



/SET XOB 



/BIT 11-0? 

/NO 

/YES 



2472 


1242 


5251 


SAVE # 


STC TPWOl 


2473 


12 4 1 


1000 




LDA 


2474 


1244 


0141 




MBLK 


2475 


1245 


0303 




ROR 3 


2476 


1246 


1100 




ADA 


2477 


1247 


^136 




STBLKN 


2^00 


1250 


5252 




STC TPWD2 


2t>01 


1251 


0000 


TPWDli 


0 


2502 


1252 


J0|?f 


TPWD2, 


0 


25)03 


1253 


1020 




LDA I 


2504 


1254 


0001 




1 


2S)0b 


1255 


2136 




ADD STBLKN 


2506 


1256 


41 J6 




STC STBLKN 


2^07 


1257 


0002 




POP 


2510 








PMODE 


2511 


3260 


4420 




JMS I BUFTRR 


2512 


3261 


5600 




JMP I WRTAPE 


2513 


3262 


6141 




LINC 


2514 








LMODE 


2515 


1263 


1020 


BP YES, 


LDA I 


2516 


1264 


0704 




WRC 


2517 


1265 


7242 




JMP SAVE 


2520 


1266 


1020 


BIT It , 


LOA I 


2521 


12 6 7 


0704 




WRC 


2522 


1270 


1120 




ADA I 


2523 


1271 


0010 




10 


2524 


1272 


7242 




JMP SAVE 


2525 


1273 


0600 


TRANDN* 


LIF 0 


2526 


1274 


6505 




JMP F7A 


2527 


1275 


0002 


ENOTP, 


? CP 


2530 








PHODE 


2531 


3276 


7200 




C^A 


2532 


3277 


1313 




T *D X6 


2533 


3300 


3014 




OCA XR4 


2534 


3301 


6046 




TLS 


2535 


3302 


7200 


HEADl, 


CLA 


2536 


3303 


6041 




TSF 


2537 


3304 


5303 




JMP ,-1 


2540 


3305 


1414 




TAD 1 XR4 


2541 


3306 


6046 




TLS 


2542 


3307 


7450 




SNA 


2543 


3310 


7410 




SKP 


2544 


3311 


5302 




JMP HEAOl 


2545 


3312 


7410 




SKP 


2546 


3313 


0424 




TAPE-1 


2547 


3314 


6141 




LINC 


2550 








LMODE 


2551 


1315 


0602 




LIF 2 


2552 


1316 


6020 




JMP BEGIN 


2553 


1317 


0002 


OVERTP, 


POP 


2554 








PMODE 


2555 


3320 


7200 




CLA 


2556 


3321 


1335 




TAD X7 


2557 


3322 


3015 




DCA XR5 


2560 


3323 


6046 




TLS 


2561 


3324 


7200 


HEAD2t 


CLA 


2562 


3325 


6041 




TSF 


2563 


3326 


5325 




JMP .-l 


2564 


3327 


1415 




TAD I XR5 


2565 


3330 


604 6 




TLS 


2566 


3331 


7450 




SNA 


2567 


3332 


7410 




SKP 


2570 


3333 


5324 




JMP HEAD2 



/INCR STBLKN FOR 
/NEXT ROUND 



/SET BITS 



?*b 7 1 


O 0 O H 


7 d 1 01 
/ ** X fa 




'J s io 




lo^ 41 




CO f O 




6x41 




9 7 4 








?*57 S 

C J f J 


X o o / 


A Q 
\0O\O d 




'Phi h 


X 0 *t iy 


f\G\0(A 




C J ( i 








? ^ Sfl /7I 
c 0 I6J ly 








y A (71 1 
<i 0 ICJ i. 






V D 

A n f 




i5X X 


(A iA Ck CA 


XRl f 


Ok3 0 




0 k!30 0 


XR2 f 


C> A f?! 4 

<i U !6f T 


16) icJX 0 


(7 tAm oi 


X R3 # 


C V > 


Id) ky X T 




XR4 » 


P A ^71 A 
^ 0 0 




\0v\0\O 


w n £r 












\OvCl£> 


0]£}0O 


o M tr T n 

BUFTR 






Od]O\0 


t J D T D r* 

WHTPE 










c O X O 




0212 


XR22 # 


^ O Xt 


k3x 


\odid 




c O 1 ^ 


)0H ^} C 


0^:12 




'J> A 1 A 

£-010 




f?^ m 7 
0O03 




C U X / 


k3 *T H 


ky 0 X k5 




c o (C |y 




/7S ffl •< 




:^ A p 1 


fA A (A fi^ 


k3 0 X 0 




p ft ? ? 
c u c <c 




f75 O il r?f 




P ft P ^ 
c. \J C O 


iA A-\ fA 

^ H l \o 


024 0 




? A P d 
0 c H 


fA A i i 
l6f 1 X 


01 n "7 




P A P R 




(A 1 '~i A 




PAPA 
^ O c O 


(A A'i T 
icJ *r X 0 


fX ns o 

k5o0<d 




c o ^ / 


^414 
IW *T X H 


Oils A 

W Ox 4 




PA "^(71 


CHA i 


0olo 




P ft ^ 1 

C O O X 


iomo 


fj') ? /I 




pft IP 

<iO Oil 


(AA i 7 

Ion X / 


Wil 40 




p ft *^ 
c O O O 


(A AO (A 


0016 




pft "^4 

C, w O 


(A AO'S 


(A'K {"AO 




P ft R 

c. O O ^ 


CA A O O 
ID H C C 


yjdxo 




P A A 
u o o o 


(A. A'^ 1 
CO 






26 37 


(A A'? A 


k3kJ ia0 




PA 4 PI 

C U ^ 




k5c 1 <i 


TAPE f 


P ft 4 1 

C U *T 1. 


]0 ^ C 0 


OS X 01 K 

ky 0 fej p 




P ft 4 P 

C U *t £, 


(A AOl 
YJ H c. / 


rR o c: £ 
\c) dDO 




P ft 4 

t- u ~ o 


(A A\ (A 






P A 4 4 

<L O *T T 


4 O 1 


0256 




P A ^ R 
£1 0 n P 




0324 




P A A 

0 *T 0 


04 00 


n't n A 

03 01 




P A 4 7 
C O *r / 


13 40 «♦ 


0320 




Pft ^itl 


01 4 1 ti 


WO05 




P651 

C> W dL 


Ci4 A 

IW *T O O 


Well? 




Pft SP 

c o c 


4 0 / 


0£: 12 




PftS 1 


CA A AfA 
Itr *f *T 


(A O rx ~7 




P ft *54 

U V *T 


lo 4 *t X 


m n fyt rx 

0000 




P ft ^ S 


CA A A O 


0<:12 


SMASH * 


pft SA 

C U «^ O 


(A A A X 
*+ O 


0317 




P AR 7 


j4 /S /I 

k5 4 4 H 


0326 




P A A fyl 
c O 0 ky 


04 4 P 


03 05 




P ft ft 1 

C. U U i 


W ^ 4 A 
4 T 0 


0322 




pft A P 
c O O c 


O. A A~7 
VJH ^ f 


0322 




2663 


0 45 0 


o :p 




2664 


0451 


0316 




2665 


0452 


0240 




2666 


0453 


0304 




2667 


0454 


0301 





SKP 

SNASH-1 

L INC 

LMODE 

LIT 2 

JHP BEGIN 

SEGMNT 0 

*i0 

0 

0 

0 

0 

0 

0 

*20 

BUFTR 

WRTAPE 

»400 



212 


/LF 


212 


/LF 


212 


/LF 


303 


/C 


310 


/H 


301 


/A 


316 


/N 


240 


/SPACE 


240 


/ 


323 


/s 


T A 

o24 


/T 


302 


/B 


314 


/L 


313 


/K 


240 


/SPACE 


24 0 


/ " 


316 


/N 


302 


/B 


215 


/OR 


212 


/LF 


0 


/EOM 


212 


/LF 


305 


/E 


256 


/» 


317 


/O 


256 


/. 


324 


/T 


301 


/A 


320 


/P 


305 


/E 


215 


/CR 


212 


/LF 


207 


/BELL 


0 


/EOM 




/LF 


317 


/O 


326 


/V 


305 


/E 


322 


/R 


322 


/R 


325 


/U 


316 


/N 


240 


/SPACE 


304 


/D 


301 


/A 



o i "7 nt 

26 70 




k3 0 «: 4 




0 t 7 


/T 


'1 ^ *? 
do/l 


fy| j4 f-^ A 


Cl "? (71 1 




Ok! 1 


/ A 


2672 


4 -3 / 


W 1 5 




C 15 




2673 


0 4 c3 id 


0(C l^: 




i:; X ^ 


/ur 


2674 


04 61 


o 7 




o 7 
c Vi / 


/Q r i t 


2 6 75 


W 4 0 d 


f/i r<S fyS 






/ LUn 


267 6 


W 4 O 0 


1 ffl Q ffl 


or Q r To 


1 n A t 
L U A 1 


y D r Q r T dtd 

/ n L b L 1 r f n I U 


n ~? "7 
do 7 / 


r/ A A .d 


i>i 7 7 
k30 / / 




A n c <1 w 1 


/Trip nr 


''3 *? fTt 


i A /I A R 

ky 4 O ^ 






D ! O Ant 


/TTv ur Ant MR 

/MY nLAUlNvi 


n "7 (Ti -t 

27 01 


/} <^ A 
W 4 €5 0 






I T r 0 
L i r *C 




2702 


0 4 6 7 


(7> CA (\ 
0 Vj VJ Li 




J nr 0 




2703 


0 470 


n (A A 7 


F6A » 


OCT 7 




2704 


0471 






0 




2705 


04/2 


7 M ffl O 


r 0 A A » 


Jnr U A 1 N i 1 




2706 


[54 /o 


r;i "z K 
0505 




CD A M r A 




O "7 Ol "7 

270 / 


Dt yl *7 /) 

0 4/4 


0 / / 4 




A M Q Lt r D 




2710 


04 /t> 


U o "7 

o5£;o 








2711 


047 6 


f;*! "7 ffi 

00 /0 




bt ! I IW 




2712 


0 4 7 7 


0 77 4 




A M c IJ tr □ 

A N b H c. K 




2713 


0500 


13 30 








2714 


0 501 


142 0 




Clin T 




2715 


0502 


2400 




4 0 0 


/A TO 

/A If 


2716 


0 50 3 


6 52 7 




Jnr NOKMXX 


/ V r* o 

/ Yt b 


2717 


050 4 


6472 




JMP P 0 A A 


/NO 


2720 


050 5 


7002 


F7 A f 


iMD OA ^^iTT 

JMP Q A i N I T 




2721 


0506 


0640 




FRAME? 




2722 


0 50 7 


0 77 4 




A Nb Wt K 




O "7 O 1 

2 / 2o 


1 ici 


7 (71 p; p; 
/ ki) 5 5 




Jrir UAnr bn 




rj "7 o 

2 / 2*t 




V}]0 /]£} 




bt i 1X0 




Cl CO 


ni i 'J 
\OOXC 


(A '7 f A 
0 / / 4 




A Ki Q y r o 




D "7 O ilL 
Cf CO 




1 X "1 ffl 

100 0 




tUH I IW 




0*7 0*7 

clef 


0 !? JL 4 


■1 d O (71 

1 4<i0 




c u n T 
brlU i 




d7 0\D 


(9! K "1 R 


O O ^71 (Tt 




O Q fTI f? 
<i «: 0 0 


y A w p 0 
/ A IV n f 


27 31 


0P 1 0 


A S 

0-300 




IMP QTADT1 

jn r b 1 An 1 X 




clod 


^OX f 


i 4^: 0 




c u n 7 
b HU 1 




O "7 "7 "2 


K O 1^ 
D 1(0 


CA fTi 

10 00 




i fTI fJ! (7? 
10 0 0 


/AN H f 


2 7 3 4 


r/ K o 1 


0000 




HL T 


/ C f n 

/b TUP 


273t5 


05 2 2 


6505 




JMP r / A 


/NO 


2 73 6 


t: ''^ n 


0 4 4 0 


r< iJ o fc.j 


b Nb 0 




27 Zl 


05 2 4 


70 55 




JMP QAHr bH 




2 7 4 0 


01 K '■J 
0 ^ P 


A rj» o 




L I r <: 




O "7 /I -1 

2/41 


fc. O *. 


o\oco 




JMr DLbiNl 




V 7 d Q 
C 1 "iC 


w y 7 


0 Old £ 


W n D M Y Y . 

IN UK n A A t 


L 1 r c 




O "7 /I < 


ffl K "7 Pi 


00 40 




C C T <3I 
bt. 1 V 




O "7 >1 A 

Cf 


(Tit; *t 1 


fflCI (717 

00 0/ 




7 




2/413 


fji u t: o 


A c/ nt ffl 




JMP 10 




2 74 6 


W50 o 


M A rtl O 


C T A O T 4 


L I F 2 




2 74 7 


05 3 4 


6020 




JMP BtbIN 




2 750 


r^Ji t; c. 

w y o y 


0 04 0 








2750 


05 3 6 


4 0 40 








O "7 C Ot 




4 04 0 








2 75 0 


0 54 0 


4 00 3 










W y 4 1 


01^5 








2 750 


0 54 2 


2411 








2 75 0 


W 94 0 


i 7 -4 A 

1 / I 0 








27 50 








TEaT tr 


CAUT I ON i 


27p1 


0544 


A ^ A 1 

414 0 








2751 












O "7 C O 

2752 


0 54 5 


4/4 3 








O T C O 












2753 


0546 


4743 








2753 


0547 


1040 








2753 


0550 


4040 









t 



2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2753 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2754 

2755 

2755 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2756 

2757 

2757 

2757 

2757 



0551 
0552 
0553 
0554 
0555 
0556 
0557 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

05 77 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0610 

0611 

0612 



0614 
0615 
0616 
0617 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 

0640 
0641 
0642 
0643 



4040 
4011 
0640 
2516 
1124 
4060 
4011 
2340 
2523 
0504 
4024 
1740 
0317 
1414 
0503 

2443 

1040 

4040 

0317 

1624 

1107 

2517 

2523 

4004 

0124 

0154 

4022 

0515 

1726 

0540 

0411 

0114 

4024 

0120 



0613 0543 



4743 
1040 
4040 
4040 
4040 
4024 
3120 
0540 
2440 
2417 
4002 
0507 
1116 
4024 
2201 
1623 
0605 
2240 
7461 
3400 

0640 
4040 
2205 
2125 



IF UNIT 0 IS USED TO COLLECT 



CONTIGUOUS DATA, REMOVE DIAL TAPE 



TYPE T TO BEGIN TRANSFER <X\i 



2757 


0644 


0523 


27 57 


0645 


24 05 


2757 


0646 


0 44 0 


2757 


0647 


0 4 01 


2757 






2760 


0650 


2 4 01 


2760 


0651 


4306 


2760 


0652 


10 01 


2760 


0653 


2340 


2760 


0654 


0205 


2760 


0655 


0516 


2760 


0656 


4024 


2760 


0657 


2201 


2760 


0 6 6 0 


1623 


2760 


0661 


0605 


2760 


0662 


2222 


2760 






2761 


0663 


0504 


2761 






2762 


0664 


4347 


2762 






2763 


0665 


4347 


2763 


0666 


4310 


2763 


0667 


4040 


2763 


0670 


4040 


2763 


0671 


4040 


2763 


0672 


4040 


2763 


0673 


2431 


2763 


0674 


2005 


2763 


0675 


4022 


2763 


0676 


4006 


2763 


0677 


1722 


2763 


0700 


4001 


2763 


0701 


1617 


2763 


0702 


2 410 


2763 


0703 


0522 


2763 


0704 


4012 


2763 






2764 


0705 


1702 


2764 


0706 


4310 


2764 


0707 


4040 


2764 


0710 


4040 


2764 


0711 


4040 


2764 


0712 


4040 


2764 


0713 


2431 


2764 


0714 


2005 


2764 


0715 


4010 


2764 


0716 


4024 


2764 


0717 


1740 


2764 


0720 


1014 


2764 






2765 


0721 


2443 


2765 






2766 


0722 


4743 


2766 


0723 


0640 


2766 


0724 


4040 


2766 


0725 


4040 


2766 


0726 


4022 


2766 


0727 


0520 


2766 


0730 


1431 


2766 


0731 


4074 


2766 


0732 


6134 


2766 







FRAME7; TEXT ZF REQUESTED DATA 



FHAS BEEN TRANSFERRED 



TYPE R FOR ANOTHER JOB 



TYPE H TO HIT 



REPLY <1\Z 



f 

0000 ERHOKS 



AAAEND 5670 
AGAIN 2617 
ALL 4305 
ALLRPT 4316 
ANS8UF 4370 
ANSWER 4774 
A3400 3110 
A4000 3111 
A6000 3107 
BEGIN 4020 
BEGINl 4023 
BITN 2517 
BITNO 3266 
8ITY 2^14 
8ITYES 3263 
BIT0 233^ 
BITl 2340 
BUFSUB 2525 
BUFTR 3063 
BUFTRR 0020 
BUFTTY 2554 
BYPASS 3226 
GHANl 3012 
CHAN10 3025 
CHAN2 3017 
CHAN20 3030 
CHAN4 3022 
CHAR 2163 
CHKCH 2235 
CHKSN 0523 
CHKSNS 4377 
CONT 3032 
CTR 3112 
CTR400 3114 
01 2555 
C2 2556 
OELCTR 3113 
DELTA 2152 
OELTAA 3115 
DONE 3071 
OPOSIT 4176 
ENDTP 3275 
ERRORX 2305 
EXIT 4 27 3 
FLAG 2155 
FRAMEl 4434 
FRAME3 4530 
FRAME4 4603 
FRAME5 4644 
FRAME6 0535 
FRAME7 0640 
Fl 4072 
FIA 4074 
F3 4107 
F3A 4111 
FSB 2020 
F4 4123 
r4A 4125 
F4B 2050 
F5 4137 



F5A 4154 
FSB 2116 
4171 
F6A 0470 
F6AA 0472 
r7A 0505 
GETCH 3122 
GETCHN 2154 
GETKBO 5523 
HEAONG 4057 
HEAOl 3302 
HEA02 3324 
JMPC 3004 
JMPF6 2267 
LASTBN 2146 
LOOPl 2167 
LP 4413 



MBLCK 


2467 


M8LK 


2141 


MBLK4 


2524 


MULWO 


2227 


Ml 


3106 


M100 


3105 


Ml 00 0 


3101 


M200 


3104 


M2000 


3100 


M400 


3103 


M4000 


3077 


M777 


3102 


NBl 


2571 


N82 


2572 


NB3 


2573 


NCHAN 


2143 


NCHl 


4433 


NORMX 


2306 


NORMXX 


0527 


NSCR 


2656 


NUN 


2140 


NUMGRP 


2147 


NXTCH 


3117 


NXTCHN 


2375 


NXTl 


3046 


OCTAC 


2133 


OVERTP 


3317 


POWER 


2645 



P0WER2 2153 
P0WR2 3116 
OAB 5006 
QACA 5017 
QACHAR 5657 
QACKir 5623 
QACNTR 5606 
QAD 5030 
QAE 5052 
QAEXIT 5637 
OAF 5520 
QAG 5064 
QAH 5116 
QAI 5133 
QAINIT 5002 
QAJ 5140 
QAK 5307 
QAKRB 6036 



QAL 


5177 


QALEGL 


5577 


QAM 


5103 


QAN 


5225 


QAO 


5233 


QAP 


5244 


QAQ 


5265 


QARFSH 


5055 


QAT 


5272 


QATLS 


6046 


QATPE 


5646 


QATSF 


604 1 


QATY 


5540 


QAU 


5510 


QAV 


5320 


QAW 


5514 


QAX 


5426 


Q AY 


5414 




5303 


QSAV 


3121 


QSAVE 


2144 


QSAVE2 


2145 


QUE 


4336 


QUEUE 


4425 


R ALL 


2275 


RDHD 


2312 


RDHEAD 


2320 


R04BK 


3062 


RD4BLK 


2440 


RESET 


4360 


HESET2 


0463 


RESTR 


4402 


REXIT 


2273 


RTNl 


4422 


RTN2 


4272 


RTN3 


2374 


SAVE 


3242 


SMASH 


0442 


START 


4045 


STARTl 


0533 


STBLKD 


2134 


STBLKN 


2136 


STCH 


3120 


STCHAN 


2142 


STCHl 


44 32 


STORE 


2460 


STR 


2344 


SUMl 


4431 


SVTENS 


4357 


TA 


2551 


TAPE 


0425 


TAPEWl 


2474 


TAPEW2 


2475 


TB 


255^2 


TBLK 


2472 


TBI 


2563 


TB2 


2564 


TB3 


2565 


TC 


2553 


TEMPI 


4430 


TEMP2 


2150 


TEMP5 


2151 


TPWDl 


3251 



TP W02 


3252 


TP WROl 


2 3i53 


TP WRD2 


2354 


TR ANDNi 


32 73 


T RA NSF 


2633 


T YP 


3123 


T YPOUT 


2600 


UNO I GT 


4245 


UN I TCK 


2256 


UN I T D 


2135 


UN I TN 


213 7 


UPL I M 


2221 


Li D T ADC* 


32 00 


W RIPE 


002 1 


V T T 

X I T 


2233 


XK 


0010 


XRl 


0011 


V D O 


0012 


XRi:2 


04 00 


V D 1 

XRO 


001 3 


X R4 


0014 


V D 

X Kt> 


0015 


X5 


2630 


X6 


3313 


X7 


3335 


HERO 


2156 



READER'S COMMENTS 

ADTAPE £ ADCON 
DEC-12-UW2A^D 



Digital Equipment Corporation maintains a continuous effort to improve the auaiitv and u.^fuu... * 
puhH.at.ons. To do th.s effectively we need user feedback - your criticalta^^^^^^^ of this^^^^^^^^^^^^^ " 

Please comment on this manual's completeness, accuracy, organization, usability, and readability. 



Did you find errors in this manual? 



How can this manual be improved? 



□ Software Manual Update, a quarterly collection of revisions to curren. software manuals. 

□ User^s Bookshelf, a bibliography of current software manuals 



O Program Library Price LisL a list orcurrenlly available software 



programs and manuals. 



Please describe your position. 
Name 



Organization 

^^'^""^ — ___ Department . 



^ — ^^^^'^ — • Zip or Country , 
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HOW TO OBTAIN SOFTWARE INFORMATIOM 



Digital Software News for the PDP-8 Family 
Digital Software News for the PDP-9/15 Familv 
PDP.6/PDP-I0 Software Bulletin ^ 



These newsletters contain information applicable to software 



available from Digital's Program Library. 



Please complete the card below to place 



your name on the newsletter mailing list. 



Report form with details of the problem to: Specialist is available, please send a Software Trouble 

Software Information Service 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 

Maynard, Massachusetts 01754 

the program or manual requested Revisions of nrn^r , document number and a brief description of 

a Pnce list wi„ be ine.udej twice year^ DrV^irfn^re^lnd"™!: t^'" 

Program Library 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 
Digital Equipment Computer Users Societv r npri fc^ - . • 

DECUS 

Digital Equipment Corporation 

146 Main Street 

Maynard, Massachusetts 01 754 

Send Digital's software newsletters to: 



My computer is a 



My system serial number i 



Name . 

Company Name_ 
Address 



PDP-8/1 □ 
LINC-8 □ 
PDP-9 □ 
PDP-10 □ 



PDP-8/L □ 
PDP-I2 □ 
PDP-15 □ 
OTHER □ 

. (if known) 



(zip code) 
Please specify 



Fold Here 
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